我写的代码如下:
Sub depart(ByVal a As String)
Dim i As Short
Dim j As Short
Dim n As Integer
Dim k As Integer
n = DataSet11.Tables("timing").Rows.Count
' If InStr(1, a, "*") = 0 Then ' 以防没有数字直接读入*end of table
For k = 1 To n
For i = 1 To 3
a = LTrim(a)
j = InStr(1, a, " ")
Select Case i
Case 1
If Len(Trim(a)) = 0 Then
Exit For
Else
DataSet11.Tables("timing").Rows(k - 1)(0) = Val(a.Substring(0, j - 1))
a = Mid(a, j)
End If
Case 2
If Len(a) = 0 Then
Exit For
Else
DataSet11.Tables("timing").Rows(k - 1)(1) = Val(a.Substring(0, j - 1))
a = Mid(a, j)
End If
Case 3
If Len(a) = 0 Then
Exit For
Else
DataSet11.Tables("timing").Rows(k - 1)(2) = Val(a)
End If
End Select
Next i
Next
If InStr(1, a, "* Date records of type dd mm yyyy") <> 0 Then
a = LineInput(1)
Debug.Print(a)
Do
Call depart(a)
Debug.Print(a)
a = LineInput(1)
Loop Until InStr(1, a, "*") <> 0
End If
从txt中找出的数据,都是对的,但是在数据上只显示最后一条记录。。。为什么啊?求大神帮我修改代码