如何跨表取值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何跨表取值？

共有3042人关注过本帖树形打印复制链接主题：如何跨表取值？

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

如何跨表取值？ 发帖心情

Post By：2020/10/26 15:09:00 [显示全部帖子]

如何实“表B”从表"表A"以字段"产品编号",取"产品编号","单价" 的值，从 "表C" 以字段 "产品编号",取"产品编号","品名","数量" 的值？

"表A" ：" 产品编号","单价"

PJ-01 , 10.5

"表C" : "产品编号","品名", "数量"

PJ-01 , 花生， 200

最终结果：“表B”"产品编号","品名","数量" ,"单价"

PJ-01 , 花生， 200， 10.5

以下代码是单个表取值，如何组合成一个表从多个表取值？

Dim t As Table = e.Form.Controls("表A").Table

For k As Integer = t.TopRow To t.BottomRow

Dim r As Row = t.Rows(k)

If r("选中") = True Then

Dim nma() As String = {"产品编号","单价"}

Dim nmb() As String = {"产品编号","单价"}

Dim dr As Row = Tables("表B").AddNew

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

End If

Dim t As Table = e.Form.Controls("表C").Table

For k As Integer = t.TopRow To t.BottomRow

Dim r As Row = t.Rows(k)

If r("选中") = True Then

Dim nma() As String = {"产品编号","品名","数量"}

Dim nmb() As String = {"产品编号","品名","数量"}

Dim dr As Row = Tables("表B").AddNew

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

End If

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/10/26 16:19:00 [显示全部帖子]

老师，想"表C"选中输入表B,而表A直接匹配给值，不用再选中。下面代码改有错，请老师纠正，谢谢

Dim t As Table = e.Form.Controls("表C").Table

Dim nma() As String = {"产品编号", "品名","数量"}

Dim nmb() As String = {"产品编号", "品名","数量"}

Dim nmc() As String = {"单价"}

For k As Integer = t.TopRow To t.BottomRow

Dim r As Row = t.Rows(k)

' If r("选中") = True Then

Dim dr As Row = Tables("表B").AddNew

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

Dim drr As DataRow = e.Form.Controls("表A").Table.DataTable.find("产品编号='" & r("产品编号") & "' and 选中=true")

If drr IsNot Nothing Then

For i As Integer = 0 To nmc.Length - 1

dr(nmc(i)) = drr(nmc(i))

End If

'End If

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/10/26 16:37:00 [显示全部帖子]

解决，谢谢

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/10/26 22:34:00 [显示全部帖子]

老师，当表B是关联，在窗体上，表B明细表，如表B主表.表B明细表,窗体上的关联的明细表，无显示，不关联的正表是可以显示。这个要如何解决

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/10/26 22:49:00 [显示全部帖子]

Dim t As Table = e.Form.Controls("表C").Table

Dim nma() As String = {"产品编号", "品名","数量"}

Dim nmb() As String = {"产品编号", "品名","数量"}

Dim nmc() As String = {"单价"}

For k As Integer = t.TopRow To t.BottomRow

Dim r As Row = t.Rows(k)

' If r("选中") = True Then
dvubb

此主题相关图片如下：关联表不显示数据.jpg

Dim dr As Row = Tables("表B主表.表B明细").AddNew

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

Dim drr As DataRow = e.Form.Controls("表A").Table.DataTable.find("产品编号='" & r("产品编号") & "' and 选中=true")

If drr IsNot Nothing Then

For i As Integer = 0 To nmc.Length - 1

dr(nmc(i)) = drr(nmc(i))

End If

'End If

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/10/27 9:44:00 [显示全部帖子]

是的，不知怎么做？

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/10/27 10:30:00 [显示全部帖子]

老师，去掉关联表的筛选，窗体还是没显示，具体代码，请老师修改一下，谢谢

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/10/27 11:05:00 [显示全部帖子]

1.窗体上的关联表，如何实现明细表的导入数据的显示？

2.表A是否可以用后台来匹配，不用放在窗体选中，如何实现？谢谢

lgz518

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

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/10/27 11:05:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目a.foxdb

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

主题：如何跨表取值？