- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助添加行的问题请教！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103970)
-- 发布时间：2017/7/20 14:39:00
-- 求助添加行的问题请教！
此主题相关图片如下：1.jpg
添加行时。自动新增 ID号 ，但再点添加行时，又自动新增一个ID号。
想做个限制，新增一行时。如果 产品类别 和纸张名称为空，则不参新增第二行。不知道怎么写代码。求助有点色版主
怎么做这个判断
-- 发布时间：2017/7/20 15:03:00
--
Dim cr As Row = Tables("纸张设置").Current
If cr.IsNull("产品类别") orelse cr.IsNull("纸张名称") Then
msgbox("不能新增行")
Return
End If
Tables("纸张设置").AddNew
-- 发布时间：2017/7/20 15:12:00
--
这样不对，有点甜版主。新增行时。
如图 已生成行号时，如果没保存，就不能新增行
此主题相关图片如下：2.jpg
[此贴子已经被作者于2017/7/20 15:17:04编辑过]
-- 发布时间：2017/7/20 15:20:00
--
Dim cr As Row = Tables("纸张设置").Current
If cr.DataRow.RowState <> DataRowState.Unchanged orelse cr.IsNull("产品类别") OrElse cr.IsNull("纸张名称") Then
msgbox("不能新增行")
Return
End If
Tables("纸张设置").AddNew
-- 发布时间：2017/7/20 15:22:00
--
还是报错。
-- 发布时间：2017/7/20 15:24:00
--
Dim cr As Row = Tables("纸张设置").Current
If cr IsNot Nothing Then
If cr.DataRow.RowState <> DataRowState.Unchanged OrElse cr.IsNull("产品类别") OrElse cr.IsNull("纸张名称") Then
msgbox("不能新增行")
Return
End If
End If
Tables("纸张设置").AddNew
-- 发布时间：2017/7/20 15:32:00
--
谢谢版主。这回对了