我在访问的dsatabase中有记录,该表称为“添加表单”。我在vb中创建了一个表单,我希望通过表中的记录删除选定的记录,以显示在相应的文本框中,然后用户单击删除以删除记录,然后单击下一步\上一步导航到另一条记录。我的代码为下一步按钮:
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.
表示导航子目录下的第一行代码。
请你帮我编程按钮转到数据库中的下一条记录。