- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求对于多个单选框组合的遍历办法？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70776)
-- 发布时间：2015/6/28 22:33:00
-- 求对于多个单选框组合的遍历办法？
如图所示，本人希望遍历第一个方框内，找出选中的值，再遍历第二个方框内选中的值，手册里面对这块描述的很少。求指点。
此主题相关图片如下：qq截图20150628223047.jpg
-- 发布时间：2015/6/28 23:03:00
--
不用想了，我已经解决了，实现如下：
For Each c As Winform.Control In e.Form.Controls
If Typeof c Is WinForm.RadioButton Then
Dim t As WinForm.RadioButton = c
If t.Name.StartsWith("targetRadio") And t.Checked Then
dr2("工作目标评价") = t.Text
Else If t.Name.StartsWith("countRadio") And t.Checked Then
dr2("工作数量评价") = t.Text
Else If t.Name.StartsWith("qualityRadio") And t.Checked Then
dr2("工作质量评价") = t.Text
Else
dr2("工作表现评价") = t.Text
End If
End If
Next
-- 发布时间：2015/6/28 23:15:00
--
我好像写的比你麻烦点
Dim tb As WinForm.TextBox = e.Form.Controls("TextBox1")
For Each c As WinForm.Control In e.Form.Controls
If Typeof c Is WinForm.groupbox Then
Dim t As WinForm.groupbox = c
For Each b As WinForm.RadioButton In t.Children
If b.Checked =True
tb.Value+= b.Text & Chr(13) & Chr(10)
End If
Next
End If
Next
文本框是测试用
[此贴子已经被作者于2015/6/28 23:15:28编辑过]