以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新增问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66854)

--  作者:seal51
--  发布时间:2015/4/14 23:29:00
--  新增问题
通过窗口新增一行, 如果未填写任何数据就关闭窗口, 则系统自动新增一条空行, 禁止添加空行如何做
--  作者:狐狸爸爸
--  发布时间:2015/4/15 8:41:00
--  

窗口BeforeClose事件:

 

dim r as row = tables("xx").Current

dim nms() As string = {"列1","列2","列3","列4"}  \'必须输入值的列

for each nm as string in nms

     if r.isnull(nm) = false then

         return

     end if

next

r.delete

 

 


--  作者:seal51
--  发布时间:2015/4/15 9:13:00
--  
谢谢狐狸爸爸的回复, OK了