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

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

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

大红袍

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

加好友

发短信

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

Post By：2016/8/9 17:41:00 [显示全部帖子]

你各个表的列名要一致，然后参考下面代码

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

大红袍

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

加好友

发短信

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

Post By：2016/8/9 20:28:00 [显示全部帖子]

看懂2楼代码，看不懂，重新学习foxtable基础知识

大红袍

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

加好友

发短信

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

Post By：2016/8/10 0:05:00 [显示全部帖子]

看2楼啊，直接新增行，直接赋值就行啊。

大红袍

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

加好友

发短信

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

Post By：2016/8/10 9:21:00 [显示全部帖子]

以下是引用yangwenghd在2016/8/10 8:13:00的发言：
谢谢刚才试了，只是选择其他投资和经营的时候就显示找不到列，之间的日期和金额同时输入到两边的列里面能教教怎么做吗？感谢感谢

列名全部改成统一的啊。不要有字母啊。

大红袍

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

大红袍

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

大红袍

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

加好友

发短信

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

Post By：2016/8/11 12:25:00 [显示全部帖子]

看14楼

大红袍

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

大红袍

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

加好友

发短信

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

Post By：2016/8/11 15:59:00 [显示全部帖子]

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

大红袍

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

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

总数 35 1 2 3 4 下一页

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