[求助]如何判断逻辑列的任意列有“真”？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何判断逻辑列的任意列有“真”？

共有3312人关注过本帖树形打印复制链接主题：[求助]如何判断逻辑列的任意列有“真”？

lmlptj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：455 积分：3756 威望：0 精华：0 注册：2012/2/8 14:19:00

[求助]如何判断逻辑列的任意列有“真”？ 发帖心情

Post By：2014/11/18 14:07:00 [只看该作者]

如题所问：如测评表中，除姓名外，其他任何列为逻辑型，如何用代码判断表中任何列的值为“真”？？

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

[此贴子已经被作者于2014-11-18 14:09:01编辑过]

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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

lmlptj

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：455 积分：3756 威望：0 精华：0 注册：2012/2/8 14:19:00

Post By：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

If I = 0 Then

MessageBox.Show("当前表未做任何处理,不能编辑下一张表格","请编辑当前表")

Return

End If

主题：[求助]如何判断逻辑列的任意列有“真”？