红袍大哥,我想了一种办法来实现功能,你看下代码上有什么缺陷吗?我还是使用粗体表示If e.Form.Controls("DateTimePicker1").text = "" Or e.Form.Controls("TextBox2").text = "" Or e.Form.Controls("TextBox3").text = "" Or e.Form.Controls("DateTimePicker2").text = "" Or e.Form.Controls("TextBox6").text = "" Or e.Form.Controls("TextBox7").text = ""
MessageBox.Show("标记 (*) 处不能为空!请正确录入信息!","提示")
Else
Dim r As Row = Tables("违章处理").AddNew
r("处理时间") = e.Form.Controls("DateTimePicker1").text
r("车牌号") = e.Form.Controls("TextBox2").text
r("发动机号") = e.Form.Controls("TextBox3").text
r("审车时间") = e.Form.Controls("DateTimePicker2").text
r("完成时间") = e.Form.Controls("DateTimePicker3").text
r("处理情况") = e.Form.Controls("TextBox5").text
r("产生费用") = e.Form.Controls("TextBox6").text
r("违章情况") = e.Form.Controls("TextBox7").text
r("业务员") = User.Name
r("客户电话") = Tables("客户数据总表").Text(Tables("客户数据总表").RowSel - 8,Tables("客户数据总表").ColSel)
e.Form.Close()
End If
理论上是没有问题的,不过运行时提示(索引超出范围。必须为非负值并小于集合大小。参数名: index)请问错误在什么地方呢?