Foxtable(狐表)用户栏目专家坐堂 → 未设置对象变量或 With 块变量


  共有2020人关注过本帖树形打印复制链接

主题:未设置对象变量或 With 块变量

帅哥哟,离线,有人找我吗?
巷弄太过弯曲
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1800 威望:0 精华:0 注册:2019/2/16 10:17:00
未设置对象变量或 With 块变量  发帖心情 Post By:2019/3/18 8:51:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下: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
图片点击可在新窗口打开查看


请老师帮我看一下 谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/18 12:23:00 [只看该作者]

 

BeforeAddDataRow 事件,写到BeforeSaveDataRow 事件。

 

 


 回到顶部