问题描述

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

我写的代码如下：

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

解决方案

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

解决方案二：
n = DataSet11.Tables(""timing"").Rows.Count
这里n是多少

你显示在界面上的代码在哪里？

解决方案三：
你怎么绑定的datagrid

解决方案四：

 Do                Call depart(a)//这里每次都是执行一行的数据，但depart里面n每次都是全部的tables数据，这循环应该是有问题的。这种循环应该是table每次加一行，而不用所有rows重新执行一遍                Debug.Print(a)                a = LineInput(1)            Loop Until InStr(1 a*"") <> 0

解决方案五：

   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        'End If        'Debug.Print(k i j n)    End Sub

  Private Sub Form1_Load(ByVal sender As System.Object ByVal e As System.EventArgs) Handles MyBase.Load     OleDbDataAdapter2.Fill(DataSet11timing"")        OleDbConnection2.Open()                End Sub

 Private Sub Button1_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button1.Click        ' Dim O As String        '  Dim VbOFNFileMustExist As Object        Dim a As String        ' Dim i As Short        OpenFileDialog1.FileName = """"        OpenFileDialog1.FileName = """"        ' OpenFileDialog1.Flags = VbOFNFileMustExist        OpenFileDialog1.Filter = ""All Files(*.*)|*.*|KEY.Files(*.KEY)|*.KEY""        OpenFileDialog1.Filter = ""All Files(*.*)|*.*|KEY.Files(*.KEY)|*.KEY""        OpenFileDialog1.FilterIndex = 2        OpenFileDialog1.FilterIndex = 2        OpenFileDialog1.Title = ""Open File""        OpenFileDialog1.Title = ""Open File""        OpenFileDialog1.ShowDialog()        If OpenFileDialog1.FileName = """" Then            MsgBox(""No file selected"" 37checking"")        Else        End If        FileOpen(1 OpenFileDialog1.FileName OpenMode.Input)        Do While Not EOF(1)            a = LineInput(1)            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        Loop        a = ""1""        Debug.Print(a)        FileClose(1)    End Sub

解决方案六：
整个代码都不对。depart是干嘛的，你每次读取一行就调用一次，然后循环整个表。
你不是不懂数据库，而是整个不会写程序。