标题：这个问题如何解决？

1楼

lgcfoxtable 发表于：2011/10/12 17:58:00

此主题相关图片如下：7777.jpg

表还没有任何数据，当我点击按钮“增加一行”时，跳出一个提示窗口，如上图。这个问题如何解决？

2楼

czy 发表于：2011/10/12 18:01:00

不要用CurrentTable.AddNew

用Tables("表名").AddNew试试。

3楼

狐狸爸爸 发表于：2011/10/12 18:07:00

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

4楼

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

5楼

狐狸爸爸 发表于：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编辑过]

6楼

lgcfoxtable 发表于：2011/10/12 18:23:00

试了不行

7楼

狐狸爸爸 发表于：2011/10/12 18:23:00

8楼

lgcfoxtable 发表于：2011/10/12 18:25:00

可以了，谢谢

共8 条记录, 每页显示 10 条, 页签: [1]