[求助]将多个分组框内的单选框的值赋值给当前行的不同列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]将多个分组框内的单选框的值赋值给当前行的不同列

共有3120人关注过本帖树形打印复制链接主题：[求助]将多个分组框内的单选框的值赋值给当前行的不同列

jjjeyes

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

[求助]将多个分组框内的单选框的值赋值给当前行的不同列 发帖心情

Post By：2020/9/16 22:56:00 [显示全部帖子]

我有一个窗口A内有两个分组框，这两个分组框内分别有多个单选框，我希望选择分组框1内的1.2.3任意按钮的时候，把值填入到表B的甲列的当前行；而选择分组框2内的4.5.6任意按钮的时候把值填入到表B的乙列当前行。

请问前辈以上代码应该如何写？

jjjeyes

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

Post By：2020/9/17 0:45:00 [显示全部帖子]

查了几个小时的帮助文件，我自己这样写的，不知道行不行

For Each c As object In e.Form.Controls(e.Form.Controls(e.sender.name).Parent.name).Children

If Typeof c Is WinForm.RadioButton Then '判断控件是否是单选框

Tables("表A").Current(e.Form.Controls(e.sender.name).Parent.text) = e.sender.text

End If

以上代码写在窗口的全局代码click里。

主题：[求助]将多个分组框内的单选框的值赋值给当前行的不同列