- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求教遍历单选控件的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74460)
-- 发布时间：2015/9/11 13:33:00
-- 求教遍历单选控件的问题
做个评价系统，先要选择评价的人员，并点击单选控件进行评价。确定后，将在对应的表格列中增加数字“1”（如下图）。
帮助中有遍历控件说明，但我还是写不好，请求帮助。
For
Each c As WinForm.Control In e.Form.Controls
If Typeof c Is WinForm.TextBox Then
\'判断控件是否是文本框
Dim t As
WinForm.TextBox = c \'使用特定类型的变量引用控件
t.Value = Nothing
End
If
Next
此主题相关图片如下：捕获.jpg
此主题相关图片如下：捕获2.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2015/9/11 14:10:00
--
For Each c As object In e.Form.Controls("GroupBox1").Children
If Typeof c Is WinForm.RadioButton Then \'判断控件是否是文本框
If c.Checked Then
msgbox(c.name)
End If
End If
Next
-- 发布时间：2015/9/11 15:45:00
--
谢谢，我先试一下