0

我正在使用 VB 2010 Express 访问 .mdb 格式的数据库。我想找到包含特定字符串和数字的行,所以我写了这个 while 循环。我正在使用 If 语句来确保循环不超过最大行数 ( MaxRows ) 并引发错误。即使数据库中确实存在字符串,它仍然给出的结果是:“未找到记录”。我究竟做错了什么?

注意: inc 用于增加行。消息框仅用于查看变量值

代码:

    Dim lpn As String
    Dim lpn2 As String


    inc = 0

    lpn = TextBox5.Text

    lpn2 = ds.Tables("RegisteredCarsDataSet").Rows(inc).Item(7)

    MsgBox(lpn & " " & lpn2 & " ") 

    While lpn <> lpn2

        If inc <> MaxRows - 1 Then
            inc = inc + 1
            lpn2 = ds.Tables("RegisteredCarsDataSet").Rows(inc).Item(7)

            MsgBox(lpn & " " & lpn2)
        Else
            MsgBox("No record found.")
            Exit While
        End If
    End While

    TextBox1.Text = ds.Tables("RegisteredCarsDataSet").Rows(inc).Item(1)
    TextBox2.Text = ds.Tables("RegisteredCarsDataSet").Rows(inc).Item(2)
    TextBox3.Text = ds.Tables("RegisteredCarsDataSet").Rows(inc).Item(3)
    TextBox4.Text = ds.Tables("RegisteredCarsDataSet").Rows(inc).Item(4)
    ComboBox1.Text = ds.Tables("RegisteredCarsDataSet").Rows(inc).Item(5)
    ComboBox2.Text = ds.Tables("RegisteredCarsDataSet").Rows(inc).Item(6)
    TextBox5.Text = ds.Tables("RegisteredCarsDataSet").Rows(inc).Item(7)
4

0 回答 0