- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 问题在图片 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68432)
-- 发布时间：2015/5/17 23:14:00
-- 问题在图片
在菜单中进行程序实现，出现了附件中的提示，请问修改方法，谢谢。
Dim drx As Row=Tables("电梯信息表").Current
If drx.isnull("使用单位") Then
messagebox.show("必须输入使用单位")
e.Form.Controls("TextBox2").Select()
Return
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:错误提示.rar |
-- 发布时间：2015/5/17 23:47:00
--
你一楼的代码，肯定不会报错的。
-- 发布时间：2015/5/18 16:32:00
-- 菜单中不行
我用在菜单中的按钮上就出现错误了，我把截图放在1楼上，麻烦帮忙再看看
-- 发布时间：2015/5/18 16:35:00
--
报错也不可能是你图片的错。
Dim drx As Row=Tables("电梯信息表").Current
If drx.isnull("使用单位") Then
messagebox.show("必须输入使用单位")
Forms("窗口1").Controls("TextBox2").Select()
Return
End If