以文本方式查看主题

-  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
--  
谢 谢