以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于BeforeCloseProject的设置。(已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13696)

--  作者:pc005637
--  发布时间:2011/10/23 16:22:00
--  关于BeforeCloseProject的设置。(已解决)

狐表的帮助文档有一个例子,是关闭项目前校验特定列是否有输入内容的。

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

提问:如果我有两个甚至多个表需要校验,如果写代码?

比如:“表B”的“状态”列,“表A”的“状态”列,“表C”的“状态”列都需要校验,应该如何写代码。谢谢。

[此贴子已经被作者于2011-10-24 12:34:24编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/10/24 8:02:00
--  
分别写三段代码,验证这三个表。
--  作者:pc005637
--  发布时间:2011/10/24 11:54:00
--  关于BeforeCloseProject的设置。(未解决)
写了三段代码,也是只是只能验证第一段的代码。好像return了就不向下继续验证了。
--  作者:狐狸爸爸
--  发布时间:2011/10/24 12:07:00
--  

If DataTables("表B").Find("[状态] Is Null") IsNot Nothing Then
   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作为主表。

       Return

   End fi
End If

[此贴子已经被作者于2011-10-24 12:07:06编辑过]

--  作者:pc005637
--  发布时间:2011/10/24 12:33:00
--  关于BeforeCloseProject的设置。(未解决)
谢谢狐爸爸。
--  作者:czy
--  发布时间:2011/10/24 12:38:00
--  

无论多少个表都没问题。

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目10.table