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


  共有2293人关注过本帖树形打印复制链接

主题:表复选框

帅哥哟,离线,有人找我吗?
riyuan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3080 威望:0 精华:0 注册:2013/4/9 11:49:00
表复选框  发帖心情 Post By:2014/9/4 12:13:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3080 威望: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
Next
这段代码只有当第一条为真时,button3才为真,只要第一条没有选择,就算其他的有选择button3也为假

 回到顶部