以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]组合复选框判断问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51784)

--  作者:lhlxl
--  发布时间:2014/6/3 15:09:00
--  [求助]组合复选框判断问题
在窗口内组合复选框,勾选内容的判断。
请帮忙看看窗口内按钮是否有其他简单判断方式。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:组合复选框的应用.foxdb


--  作者:有点甜
--  发布时间:2014/6/3 15:14:00
--  

按钮代码

 

Dim s As String = "," & e.Form.Controls("CheckedComboBox1").value & ","
For i As Integer = 1 To 5
    e.Form.Controls("CheckBox" & i).Checked = s.Contains("," & e.Form.Controls("CheckBox" & i).Text & ",")
Next

[此贴子已经被作者于2014-6-3 15:21:44编辑过]

--  作者:lhlxl
--  发布时间:2014/6/3 15:20:00
--  
很NB的代码  谢谢斑竹  我以后还要加强代码学习