以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这个问题如何解决？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13452)
--  作者：lgcfoxtable
--  发布时间：2011/10/12 17:58:00
--  这个问题如何解决？

图片点击可在新窗口打开查看此主题相关图片如下：7777.jpg
图片点击可在新窗口打开查看
表还没有任何数据，当我点击按钮“增加一行”时，跳出一个提示窗口，如上图。这个问题如何解决？
--  作者：czy
--  发布时间：2011/10/12 18:01:00
--  

不要用CurrentTable.AddNew

用Tables("表名").AddNew试试。
--  作者：狐狸爸爸
--  发布时间：2011/10/12 18:07:00
--  

如果还是不行，请贴出增加行的代码。

 
--  作者：lgcfoxtable
--  发布时间：2011/10/12 18:20:00
--  

Dim r As Row = Tables("业绩统计").Current
If  r.isnull("客户名称") OrElse r.isnull("货物名称") Then
    Messagebox.Show("不能为空,请输入数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
Tables("业绩统计").AddNew
--  作者：狐狸爸爸
--  发布时间：2011/10/12 18:22:00
--  

Dim r As Row = Tables("业绩统计").Current
If r IsNot Nothing AndAlso (r.isnull("客户名称") OrElse r.isnull("货物名称")) Then
    Messagebox.Show("不能为空,请输入数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
Tables("业绩统计").AddNew

[此贴子已经被作者于2011-10-12 18:22:37编辑过]
--  作者：lgcfoxtable
--  发布时间：2011/10/12 18:23:00
--  

试了不行
--  作者：狐狸爸爸
--  发布时间：2011/10/12 18:23:00
--  

Dim r As Row = Tables("业绩统计").Current
If r IsNot Nothing AndAlso (r.isnull("客户名称") OrElse r.isnull("货物名称")) Then
     Messagebox.Show("不能为空,请输入数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
     Return
End If
Tables("业绩统计").AddNew
--  作者：lgcfoxtable
--  发布时间：2011/10/12 18:25:00
--  
可以了，谢谢