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

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

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

大红袍

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

加好友

发短信

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

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

ndra("某列") = Format(Date.Now, "yyyyMMddHHmmss")

yangwenghd

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

加好友

发短信

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

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

感谢感谢能棒我看看加上button1 的选项确定收入那个表列，

If e.Form.Controls("Button1").checked "对公"这段应该怎么些啊！感谢感谢

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

大红袍

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

加好友

发短信

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

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

If e.Form.Controls("Button1").Text = "对公" Then

yangwenghd

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

加好友

发短信

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

Post By：2016/8/11 20: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

If 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

大红袍

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

yangwenghd

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

加好友

发短信

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

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

为什么那里要多加Else啊

'ndrd("第八列") = e.Form.controls("Panel2" "RadioButton").text '虽然内容为 Panel2选中的RadioButton， Panel2和RadioButton之间用什么表示啊！

大红袍

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

加好友

发短信

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

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

直接写控件的名字即可。

yangwenghd

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

加好友

发短信

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

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

谢谢我试过，只是不管有没选中都会输入，可以是在panel 输入选中的名称，感谢感谢

大红袍

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

加好友

发短信

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

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

没看懂你想做什么。

yangwenghd

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

加好友

发短信

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

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

就是在panel2有一些eadiobueeon ，然后点击按钮

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

Dim ndr As DataRow = DataTables("回款记录").AddNew

ndr("企业名称") = e.Form.controls("panel2，eadiobueeon ").text ’企业名称就等于 panel2（里面有很多eadiobueeon，1，2，）里面eadiobueeon被选中的那个名称，比如是 eadiobueeon1是经营。企业名称列就等于经营，如果选中的是eadiobueeon2，eadiobueeon2的名称是投资，然后企业的名称就输入投资，感谢感谢

下一主题 >> << 上一主题

总数 96 上一页 1 2 3 4 5 6 7 8 9 10 下一页

主题：选择RadioButton输入不同的表