此主题相关图片如下：2—20190318084326.png
求助，请问老师 如图 我在新增的界面中 设置了如果不输入部门 不输入其他内容，继续点新增则会出现提示对话框的功能，但是当出现提示对话框就会出现这个界面报错
BeforeAddDataRow：
Dim bm As DataRow = DataTables("WIFI查询资料").Find("部门 Is Null")
Dim SSID As DataRow = DataTables("WIFI查询资料").Find("SSID号 Is Null")
If bm IsNot Nothing Then
e.Cancel = True '那么取消输入并提示用户
MessageBox.Show("部门未输入!","提示")
ElseIf SSID IsNot Nothing Then
e.Cancel = True '那么取消输入并提示用户
MessageBox.Show("SSID号未输入!","提示")
End If
在新增窗口新增按钮中代码是：
Dim r = Tables("WIFI查询资料").AddNew '增加一行
Dim i As String = DataTables("WIFI查询资料").Compute("max(序号)") '取出当前最大一个数值
Dim idx As Integer
If i > "" Then
idx = val(i) +1
Else
idx =1
End If
r("序号") = ForMAT(idx,"00")'增加一行的同时序列号+1
此主题相关图片如下：1_20190318084300.jpg
请老师帮我看一下 谢谢
加好友 
发短信
Post By：2019/3/18 8:51:00 [显示全部帖子]
