Foxtable(狐表)用户栏目专家坐堂 → 求对于多个单选框组合的遍历办法?


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

主题:求对于多个单选框组合的遍历办法?

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


加好友 发短信
等级:一尾狐 帖子:456 积分:7267 威望:0 精华:0 注册:2012/2/6 12:27:00
  发帖心情 Post By: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编辑过]

 回到顶部