各路好汉大神，急需救助，我写的数据库代码在显示数据时，只显示最后一条

Question

我写的代码如下：

 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中找出的数据，都是对的，但是在数据上只显示最后一条记录。。。为什么啊？求大神帮我修改代码

Answer 1

depart改成类似下面的逻辑，没有调测过，自己试吧

 Sub depart(ByVal a As String)
        Dim i As Short
        Dim j As Short
        Dim n As Integer
        Dim k As Integer
        Dim dt as DataTable = DataSet11.Tables("timing")
        dim dr as datarow=DataTable.NewRow()
        '  If InStr(1, a, "*") = 0 Then '  以防没有数字直接读入*end of table
        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
                            dr(0) = Val(a.Substring(0, j - 1))
                            a = Mid(a, j)
                        End If
                    Case 2
                        If Len(a) = 0 Then
                            Exit For
                        Else
                            dr(1) = Val(a.Substring(0, j - 1))
                            a = Mid(a, j)
                        End If
                    Case 3
                        If Len(a) = 0 Then
                            Exit For
                        Else
                            dr(2) = Val(a)
                        End If
                End Select
            Next i
         dt.rows.add(dr)
        'End If
        'Debug.Print(k, i, j, n)
    End Sub