表复选框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表复选框

共有1873人关注过本帖树形打印复制链接主题：表复选框

riyuan

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

加好友

发短信

等级：小狐帖子：313 积分：2446 威望：0 精华：0 注册：2013/4/9 11:49:00

表复选框

Post By：2014/9/4 12:13:00 [只看该作者]

请教表中的复选框如何判断没有选择

y2287958

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

加好友

发短信

等级：狐神帖子：4632 积分：33804 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/9/4 12:22:00 [只看该作者]

.checked

riyuan

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

加好友

发短信

等级：小狐帖子：313 积分：2446 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2014/9/4 12:24:00 [只看该作者]

For Each r As Row In Tables("pl_table1").Rows

If r.Checked=True Then

'If r.Checked =True

Forms("pl").Controls("button3").Enabled=True

'Continue For

Exit For

ElseIf r.Checked =False Then

Forms("pl").Controls("button3").Enabled=False

'MessageBox.Show(r.Index)

Exit For

End If

这段代码只有当第一条为真时，button3才为真，只要第一条没有选择，就算其他的有选择button3也为假

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

Forms("pl").Controls("button3").Enabled = False
For Each r As Row In Tables("pl_table1").Rows
    If r.Checked Then
        Forms("pl").Controls("button3").Enabled = True
        Exit For
    End If
Next

Bin

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

加好友

发短信

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

Post By：2014/9/4 14:08:00 [只看该作者]

if Forms("pl").Opened then
if Tables("pl_table1").Rows(0).Checked then

Forms("pl").Controls("button3").Enabled=True

else

Forms("pl").Controls("button3").Enabled=false

end if

下一主题 >> << 上一主题

主题：表复选框