0

我在我的数据库中有访问记录，该表称为“添加表单”。我在 vb 中创建了一个表单，我想通过表中的记录删除选定的记录以显示在相应的文本框中，然后用户单击删除以删除记录，然后单击 Next\Previous 导航到另一条记录. 我的下一步按钮代码：

If inc <> MaxRows - 1 Then
    inc = MaxRows - 1
    NavigateRecords()
ElseIf inc = -1 Then
    MsgBox("This is the first record")
End If

导航功能在这里：

Private Sub NavigateRecords()
    Student_IDTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(0)
    Student_NameTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(1)
    Date_of_BirthDateTimePicker.Text = ds.Tables("Add Form").Rows(inc).Item(2)
    AddressTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(3)
    E_mailTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(4)
    AllergiesTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(5)
    Emergency_Contact_NumberTextBox.Text = ds.Tables("Add Form").Rows(inc).Item(6)
End Sub

但它给了我这个错误：

Object reference not set to an instance of an object.

对于导航子下的第一行代码。

请您帮我编程按钮以转到数据库中的下一条记录。

4

0 回答 0