- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何判断逻辑列的任意列有“真”？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60104)
-- 发布时间：2014/11/18 14:07:00
-- [求助]如何判断逻辑列的任意列有“真”？
如题所问：如测评表中，除姓名外，其他任何列为逻辑型，如何用代码判断表中任何列的值为“真”？？
此主题相关图片如下：1.jpg
[此贴子已经被作者于2014-11-18 14:09:01编辑过]
-- 发布时间：2014/11/18 14:21:00
--
for each c as col in tables("X").cols
if c.name<> "姓名" then
if tables("X").current(c.name) then
messagebox.show("当前行 " & c.name & " 为真" )
end if
end if
next
-- 发布时间：2014/11/18 15:51:00
--
谢谢老师!!!!
我后来用了这样的代码:
\'-----判断整张表是否作过修改
Dim I As Integer
For Each R As Row In Tables("测评表").RowS
If R.DataRow.RowState = DataRowState.Modified Then
I = I +1
End If
Next
If I = 0 Then
MessageBox.Show("当前表未做任何处理,不能编辑下一张表格","请编辑当前表")
Return
End If