以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  空的行提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21582)

--  作者:wilson
--  发布时间:2012/7/18 0:29:00
--  空的行提示

我想在以下代码增加条件,无法解决,求助

1.  当菜单 功能区1 存在的时候提示表B 的空行 , 如果 功能区1  不存在不提示

2.  多列不能为空如何改写代码

 

谢谢!


If
DataTables("表B").Find("[状态] Is Null") Is Nothing Then
Return \'那么返回
End
If
Dim
Result As DialogResult
Result = Messagebox.Show(
"存在状态不确定的记录,确定要关闭项目吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If
Result = DialogResult.No Then \'如果用户选择否
e.Cancel =
True \'取消关闭项目
Tables("表B").Filter = "[状态] Is Null" \'表B中筛选出状态为空的记录。
MainTable = Tables("表B") \'选择表B作为主表。
End
If


--  作者:狐狸爸爸
--  发布时间:2012/7/18 7:08:00
--  

也许这个更好:

http://www.foxtable.com/help/topics/0628.htm

 


--  作者:wilson
--  发布时间:2012/7/18 11:16:00
--  

问题已解决,谢谢!