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


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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/11 21:29:00 [显示全部帖子]

If e.Form.Controls("RadioButton1").checked Then
    If e.Form.Controls("ComboBox1").Text = "经营" Then
        Dim ndr As DataRow = DataTables("表A").AddNew
        ndr("进项A") = e.Form.controls("textbox3").text
        ndr("备注A") = e.Form.controls("textbox1").text
        ndr("第七列") = Format(Date.Now, "yyyyMMddHHmmss")
        ndr("第八列") = e.Form.controls("RadioButton1").text
       
    ElseIf e.Form.Controls("ComboBox1").Text = "个人" Then
        Dim ndrd As DataRow = DataTables("表B").AddNew
        ndrd("进项b") = e.Form.controls("textbox3").text
        ndrd("备注b") = e.Form.controls("textbox1").text
        ndrd("第七列") = Format(Date.Now, "yyyyMMddHHmmss")
        ndrd("第八列") = e.Form.controls("RadioButton1").text
    End If
End If

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/11 21:40:00 [显示全部帖子]

 直接写控件的名字即可。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/11 21:51:00 [显示全部帖子]

没看懂你想做什么。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/11 23:58:00 [显示全部帖子]

Dim c1 = e.Form.Controls("eadiobueeon1")

Dim c2 = e.Form.Controls("eadiobueeon2")

ndr("企业名称") = iif(c1.Checked, c1.Text, iif(c2.checked, c2.Text, nothing))
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/12 10:10:00 [显示全部帖子]

代码没问题啊。每个控件的名字是唯一的啊

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/12 11:45:00 [显示全部帖子]

 代码没问题啊。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/12 15:35: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
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/14 13:11:00 [显示全部帖子]

以下是引用yangwenghd在2016/8/13 1:47:00的发言：
感谢 感谢 如果我同时选中了两个或者三个该怎么分开啊

 

呃...单选框怎么能同时选择几个的？

 

如果选择几个，最后你要怎样的效果？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/16 21:50:00 [显示全部帖子]

If e.Form.Controls("RadioButton1").checked Then
 
End If
    
If e.Form.Controls("RadioButton2").checked Then

 

End If

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/16 23:03:00 [显示全部帖子]

之前你是怎么赋值的？如果要重新刷新，只需要把代码重新执行一次就可以了啊。
 回到顶部
总数 35 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询