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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何向主表填充子表的统计数据

共有4991人关注过本帖树形打印复制链接主题：如何向主表填充子表的统计数据

min-fox

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

加好友

发短信

等级：幼狐帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00

如何向主表填充子表的统计数据 发帖心情

Post By：2022/7/6 11:30:00 [显示全部帖子]

此主题相关图片如下：图片111.png

如何把子表中统计的5值填充到对应的主表关联列的单元格中

Dim Vals As List(Of String)

Vals = DataTables("子表").GetValues("第一列", "第二列 Is not Null and 关联列='" & Tables("主表").current（“关联列”） & "'")

For i As Integer = 0 To Vals.Count - 1

Dim dr As DataRow = DataTables("主表").AddNew()

dr("二列不空一列不重复数") = Vals(i)(0)

[此贴子已经被作者于2022/7/6 11:35:29编辑过]

min-fox

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

加好友

发短信

等级：幼狐帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00

Post By：2022/7/6 12:15:00 [显示全部帖子]

蓝老师：

If e.DataCol.Name = "关联列" Then '发生变化的是产品列。

e.DataRow("二列不空一列不重复数") = DataTables("子表").GetValues("第一列", "第二列 Is not Null and 关联列='" & Tables("主表").current("关联列") & "'")

end if

调用失败

min-fox

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

加好友

发短信

等级：幼狐帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00

Post By：2022/7/6 14:03:00 [显示全部帖子]

如果换成按钮控件，怎么做

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

For Each r As Row In t.Rows

r("二列不空一列不重复数") = DataTables("子表").GetValues("第一列", "第二列 Is not Null and 关联列='" & Tables("主表").current("关联列") & "'", "[关联列] ='" & r("关联列") & "'")

min-fox

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

加好友

发短信

等级：幼狐帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00

Post By：2022/7/6 14:35:00 [显示全部帖子]

报错

从类型“List(Of String)”到类型“String”的转换无效。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目50.table

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

主题：如何向主表填充子表的统计数据