以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  点击“增加一行”,当该行没有数据输入的时候,再点“增加一行”将不能增加,并提示请输入内容后再增加,代码如何写?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13110)

--  作者:lgcfoxtable
--  发布时间:2011/9/28 10:54:00
--  点击“增加一行”,当该行没有数据输入的时候,再点“增加一行”将不能增加,并提示请输入内容后再增加,代码如何写?
点击“增加一行”,当该行没有数据输入的时候,再点“增加一行”将不能增加,并提示请输入内容后再增加,代码如何写?
--  作者:狐狸爸爸
--  发布时间:2011/9/28 11:17:00
--  

可以用这个事件的:

 

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

 


--  作者:lgcfoxtable
--  发布时间:2011/9/28 12:38:00
--  

谢谢管理员,我想在窗体中点击实现我的想法,我不知道代码怎么编写?


--  作者:mr725
--  发布时间:2011/9/28 12:46:00
--  
你最好写一下自己的代码,让大家帮你纠错····
--  作者:lgcfoxtable
--  发布时间:2011/9/28 15:07:00
--  

If     不知道怎么写=空    Then 
              不能增加

              Messagebox.Show(
"不能为空,请输入数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End
If    

     Tables("表名").AddNew() \'增加一行

 

 

 

 

 


--  作者:狐狸爸爸
--  发布时间:2011/9/28 15:17:00
--  

Dim r As Row = Tables("表名").Current
If r.isnull("列名1")  orelse  r.isnull("列名2")  orelse r.isnull("列名3") then
    Messagebox.Show("不能为空,请输入数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    return
End If
Tables("表名").AddNew() \'增加一行

参考:

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

 


--  作者:lgcfoxtable
--  发布时间:2011/9/28 15:52:00
--  
谢 谢