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


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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/10 9:46:00 [只看该作者]

Dim tname As String = ""

Dim s As String = ""
If e.Form.Controls("RadioButton1").checked Then
    tname = "表A"

    s = "A"
ElseIf e.Form.Controls("RadioButton2").checked Then
    tname = "表B"

    s = "B"
ElseIf e.Form.Controls("RadioButton3").checked Then
    tname = "表C"

    s = "C"
End If
Dim ndr As DataRow = DataTables(tname).AddNew
ndr("进项" & s) = e.Form.controls("textbox3").text
ndr("备注" & s) = e.Form.controls("textbox1").text
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/10 10:08:00 [只看该作者]

感谢 感谢 

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/11 12:10:00 [只看该作者]

太感谢你了，代码我看懂了，只是想问问 如果列没有字母，但是列的名称不同，我可以实现这个功能吗？

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/11 12:22:00 [只看该作者]

以下是引用yangwenghd在2016/8/11 12:10:00的发言：
太感谢你了，代码我看懂了，只是想问问 如果列没有字母，但是列的名称不同，我可以实现这个功能吗？

 

那就要分别处理

 

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


    Dim ndr As DataRow = DataTables(tname).AddNew
    ndr("进项") = e.Form.controls("textbox3").text
    ndr("备注") = e.Form.controls("textbox1").text


ElseIf e.Form.Controls("RadioButton2").checked Then

ElseIf e.Form.Controls("RadioButton3").checked Then

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/11 12:23:00 [只看该作者]

这个代码没有错啊！能帮我看看吗？是不是要设置当RadioButton1没有选择的时候需要一个指令啊！
感谢 感谢 感谢 

Dim tname As String = ""
If e.Form.Controls("RadioButton1").checked Then
    tname = "表A"
End If
Dim ndr As DataRow = DataTables(tname).AddNew
ndr("进项A") = e.Form.controls("textbox3").text
ndr("备注A") = e.Form.controls("textbox1").text

Dim tnama As String = ""
If e.Form.Controls("RadioButton2").checked Then
    tnama = "表B"
End If
Dim ndra As DataRow = DataTables(tnama).AddNew
ndra("进项B") = e.Form.controls("textbox3").text
ndra("备注B") = e.Form.controls("textbox1").text
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

看14楼

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/11 14:32:00 [只看该作者]

能在帮我看看吗？看了两个小时还是没有看出来是那里出了问题。唉，麻烦你们了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:支付转移.table
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/11 14:56:00 [只看该作者]

If e.Form.Controls("RadioButton1").checked Then   
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("进项A") = e.Form.controls("textbox3").text
    ndr("备注A") = e.Form.controls("textbox1").text
ElseIf e.Form.Controls("RadioButton2").checked Then
    Dim ndra As DataRow = DataTables("表B").AddNew
    ndra("进项B") = e.Form.controls("textbox3").text
    ndra("备注B") = e.Form.controls("textbox1").text
End If

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/11 15:39:00 [只看该作者]

感谢 感谢 完全可以了，太感谢了 搞了一上午就为这个 ，我可以在原理的基础上加个功能吗？
就是 现在点击一下会把数据收入进去吗？把点击按钮的时间现成一个号码，然后输入到第一列吗？比如点击一下  增加行的同时增加2016年8月11日 15:36:29，20160811153629，和添加的数据同时收入到行。
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/8/11 15:58:00 [只看该作者]

为什么我添加一个Button1条件就不能用了啊？
就是除了RadioButton选择后 在选择Button 确定是输入表b还是表c
感谢 感谢 
If e.Form.Controls("RadioButton1").checked Then
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("进项A") = e.Form.controls("textbox3").text
    ndr("备注A") = e.Form.controls("textbox1").text
ElseIf e.Form.Controls("RadioButton2").checked Then
    If e.Form.Controls("Button1").checked "对公"
        Dim ndra As DataRow = DataTables("表B").AddNew
        ndra("进项B") = e.Form.controls("textbox3").text
        ndra("备注B") = e.Form.controls("textbox1").text
    ElseIf e.Form.Controls("Button1").checked "对私"
        Dim ndrc As DataRow = DataTables("表C").AddNew
        ndra("进项C") = e.Form.controls("textbox3").text
        ndra("备注C") = e.Form.controls("textbox1").text
    End If
End If
 回到顶部
总数 96 上一页 1 2 3 4 5 6 7 8 9 10 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询