Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何快速清除窗口中所有复选框的选中状态


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

主题：如何快速清除窗口中所有复选框的选中状态
帅哥哟，离线，有人找我吗？
zyxhx
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		如何快速清除窗口中所有复选框的选中状态  发帖心情 Post By：2022/5/27 18:15:00 [只看该作者]

请问如何快速清除窗口中所有复选框（checkbox）的选中状态?

图片点击可在新窗口打开查看此主题相关图片如下：12333.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/28 8:44:00 [只看该作者]

遍历窗口控件：http://www.foxtable.com/webhelp/topics/1849.htm

For Each c As Winform.Control In e.Form.Controls
    If Typeof c Is WinForm.checkbox Then '判断控件是否是复选框
        Dim t As WinForm.checkbox= c
        t.Checked = false
……
[此贴子已经被作者于2022/5/28 8:44:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/5/28 18:33:00 [只看该作者]

按照老师的指点写代码如下：可是运行后，虽然能够取消选取，但当再次选择其中一个复选框时，会自动选取之前已经取消了的复选框，请老师看一下我的代码是否有问题，该如何修改？谢谢！
For Each c As Winform.Control In e.Form.Controls
    If Typeof c Is WinForm.checkbox Then '判断控件是否是复选框
        Dim t As WinForm.checkbox= c
        t.Checked = False
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/29 20:04:00 [只看该作者]

代码放到哪里的？应该和这个代码没有关系。

 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/5/29 21:34:00 [只看该作者]

代码放到窗口中按钮的，不知道怎么会这样？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/29 21:48:00 [只看该作者]

去掉这个代码就没有问题？做个例子发上来测试一下

 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/5/29 22:02:00 [只看该作者]

如果不绑定表列就能够正常用，当绑定了表列后就出现取消后重新选取其中一个，而之前取消的另外几个也会被选中，请老师看一下我发的示例。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/29 22:06:00 [只看该作者]

看看：http://www.foxtable.com/webhelp/topics/2436.htm

绑定的直接改表格
 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/5/29 22:18:00 [只看该作者]

看了还是不明白，请教老师取消所有选取状态的代码应该怎样改写才能正常使用？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/29 22:34:00 [只看该作者]

Dim r As Row = Tables("表A").current
If r IsNot Nothing Then
    For Each c As Col In Tables("表A").cols
        If c.IsBoolean Then
            r(c.name) = False
        End If
    Next
End If
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06006 秒, 5 次数据查询