- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 奇怪 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84790)
-- 发布时间：2016/5/10 15:44:00
-- 奇怪
假设窗口中有表控件table1，希望判断表中是否存在空行：
-- 发布时间：2016/5/10 15:47:00
--
Dim tbl As Table = e.Form.Controls("Table1").Table
Dim r As Row
For Each r In tbl.Rows
Dim isnull As Boolean = True
For Each c As Col In tbl.Cols
If r.IsNull(c.name) = False Then
isNull = False
End If
Next
If isnull Then
MessageBox.Show("表中存在空行,不能保存!")
Return
End If
Next
-- 发布时间：2016/5/11 10:25:00
--
-- 发布时间：2016/5/11 10:26:00
--
Dim tbl As Table = e.Form.Controls("Table1").Table
Dim r As Row
For Each r In tbl.Rows
Dim isnull As Boolean = True
For Each c As Col In tbl.Cols
If r.IsNull(c.name) = False Then
isNull = False
End If
Next
If isnull = false Then
r.Save
End If
Next
-- 发布时间：2016/5/11 10:45:00
--
经测试还是保存空行了，何故？
-- 发布时间：2016/5/11 10:46:00
--
不，可，能，上传实例
-- 发布时间：2016/5/11 10:47:00
--
看看你项目有没有逻辑列
-- 发布时间：2016/5/11 10:49:00
--
Dim tbl As Table = e.Form.Controls("Table1").Table
Dim r As Row
For Each r In tbl.Rows
Dim isnull As Boolean = True
For Each c As Col In tbl.Cols
If c.IsBoolean Then
If r(c.name) = True Then
isNull = False
End If
ElseIf r.IsNull(c.name) = False
isNull = False
End If
Next
If isnull = False Then
r.Save
End If
Next
-- 发布时间：2016/5/11 12:52:00
--
原因找到了，原来是逻辑列在捣乱。做一简单例子：
-- 发布时间：2016/5/11 14:42:00
--
Dim tbl As Table = e.Form.Controls("Table1").Table
Dim r As Row
For Each r In tbl.Rows
Dim isnull As Boolean = True
For Each c As Col In tbl.Cols
If c.IsBoolean Then
If r(c.name) = True Then
isNull = False
End If
ElseIf r.IsNull(c.name) = False
isNull = False
End If
Next
If isnull = False Then
r.Save
End If
Next