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


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

主题：选择RadioButton输入不同的表
帅哥哟，离线，有人找我吗？
Hyphen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/12 8:40:00 [显示全部帖子]

Dim c1 = e.Form.Controls("RadioButton1")
Dim c2 = e.Form.Controls("RadioButton2")
Dim c3 = e.Form.Controls("RadioButton3")
Dim value = iif(c1.Checked, c1.Text, iif(c2.Checked, c2.Text, iif(c3.checked, c3.Text, Nothing)))
ndr("第十列") = value
ndra("第十列") = value
ndrc("第十列") = value
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/25 8:52:00 [显示全部帖子]

只能通过名称判断：

if e.Form.controls("RadioButtonXXX").Checked then
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/26 9:23:00 [显示全部帖子]

每多一个控件就要多一个判断的。楼上的还是花时间多看看编程基础吧。

如果一组多个RadioButton都是单选的，可以考虑使用组合框，不同判断那么多代码
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/26 9:44:00 [显示全部帖子]

看77楼的代码，控件名称要一一对应啊，如果不是这样，看不懂您的逻辑

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/26 9:52:00 [显示全部帖子]

用组合框

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/26 10:07:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/26 10:37:00 [显示全部帖子]

如果是n选1的，组合框一样可以在选择后做其它的数据处理

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/26 10:54:00 [显示全部帖子]

逐个判断，基础没学好当然难

If e.Form.Controls("RadioButton1").Checked Then
    If e.Form.Controls("RadioButton5").Checked Then
        
    ElseIf e.Form.Controls("RadioButton6").Checked Then
        
    ElseIf e.Form.Controls("RadioButton7").Checked Then
        
    End If
ElseIf e.Form.Controls("RadioButton2").Checked Then
    If e.Form.Controls("RadioButton5").Checked Then
        
    ElseIf e.Form.Controls("RadioButton6").Checked Then
        
    ElseIf e.Form.Controls("RadioButton7").Checked Then
        
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/26 12:00:00 [显示全部帖子]

所以说呀，基础没学好，又不想花时间学。别人20分钟能做好的事情，您花了几天时间。

If e.Form.Controls("RadioButton1").checked Then
    Dim ndrb As DataRow = DataTables("表A").AddNew
    ndrb("金额") = e.Form.controls("TextBox1").text
    If e.Form.Controls("RadioButton5").Checked Then
        ndrb("去向") = e.Form.controls("RadioButton5").Text
    ElseIf e.Form.Controls("RadioButton6").Checked Then
        ndrb("去向") = e.Form.controls("RadioButton6").Text
    ElseIf e.Form.Controls("RadioButton7").Checked Then
        ndrb("去向") = e.Form.controls("RadioButton7").Text
    Else
        ndrb("去向") = e.Form.controls("RadioButton8").Text
    End If
End If
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询