选择RadioButton输入不同的表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 选择RadioButton输入不同的表

共有7933人关注过本帖树形打印复制链接主题：选择RadioButton输入不同的表

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/20 8:39:00 [只看该作者]

ndrd("第八列") = e.Form.controls("RadioButton4").text

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/22 22:20:00 [只看该作者]

感谢感谢还是有点不对如果选中的不是radiobutton4就不收入，

第八列收入的是 panel2 里面被选中的radiobutton ，感谢了我也想了很久，麻烦了

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/22 22:40:00 [只看该作者]

每一个控件的名字都是唯一的啊，写对控件的值，就行啊

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/23 20:59:00 [只看该作者]

点击按钮，左边选中的radiobutton2，代表的输入到表B，表B的去处列得到投资右，

右边选中的radiobutton3，代表输入的是表A ，表A的来源就是右边选中的radiobutton2的名称（经营左）

。我语文不是很好，有很多都没说明白，让大家费心了，感谢感谢

点击按钮，左边选中的radiobutton的名称复制到右边选中的radiobutton所代表的表的来源或者提取处，

右边选中的radiobutton的名称复制到左边选中输入的表的去项和去处列，

总的意思就是 radiobutton要输入的表，也要把名称复制到被输入的表列里面。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:去项来向.table

此主题相关图片如下：编辑.jpg

[此贴子已经被作者于2016/8/23 21:03:59编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/23 21:16:00 [只看该作者]

If e.Form.Controls("RadioButton1").checked Then
    Dim ndrb As DataRow = DataTables("表B").AddNew
    ndrb("余额") = e.Form.controls("TextBox1").text
    ndrb("提取处") = e.Form.controls("RadioButton1").text '变动去向
End If
If e.Form.Controls("RadioButton2").checked Then
    Dim ndrb As DataRow = DataTables("表B").AddNew
    ndrb("余额") = e.Form.controls("TextBox1").text
    ndrb("提取处") = e.Form.controls("RadioButton2").text '变动去向
End If
If e.Form.Controls("RadioButton3").checked Then
    Dim ndrb As DataRow = DataTables("表A").AddNew
    ndrb("金额") = e.Form.controls("TextBox1").text
    ndrb("去向") = e.Form.controls("RadioButton3").text '变动去向
End If
If e.Form.Controls("RadioButton4").checked Then
    Dim ndrb As DataRow = DataTables("表A").AddNew
    ndrb("金额") = e.Form.controls("TextBox1").text
    ndrb("去向") = e.Form.controls("RadioButton4").text '变动去向
End If