[求助]表A多列多值跨表转单行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表A多列多值跨表转单行

共有446人关注过本帖树形打印复制链接主题：[求助]表A多列多值跨表转单行

y2287958

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

等级：狐神帖子：4724 积分：34374 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2024/9/2 12:27:00 [显示全部帖子]

DataTables("表B").DataRows.Clear

For Each 行 As DataRow In DataTables("表A").DataRows

For Each 科目 As String In "事宜|环境|成本".Split("|")

For Each 事宜 As String In 行.Lines(科目)

Dim 新增行 As DataRow = DataTables("表B").AddNew

新增行("编号") = 行("编号")

新增行("国家") = 行("国家")

新增行("科目") = 科目

新增行("表A多列多值跨表转单行") = 事宜

y2287958

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

等级：狐神帖子：4724 积分：34374 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2024/9/2 16:36:00 [显示全部帖子]

For Each 行 As DataRow In DataTables("表A").DataRows

For Each 科目 As String In "事宜|环境|成本".Split("|")

For Each 表A多列多值跨表转单行 As String In 行.Lines(科目)

Dim 编号 As String = 行("编号")

Dim 国家 As String = 行("国家")

Dim 查找行 As DataRow = DataTables("表B").Find("编号 = '" & 编号 & "' and 国家 = '" & 国家 & "' and 科目 = '" &

科目 & "' and 表A多列多值跨表转单行 = '" & 表A多列多值跨表转单行 & "'")

If 查找行 Is Nothing Then

Dim 新增行 As DataRow = DataTables("表B").AddNew

新增行("编号") = 行("编号")

新增行("国家") = 行("国家")

新增行("科目") = 科目

新增行("表A多列多值跨表转单行") = 表A多列多值跨表转单行

End If

主题：[求助]表A多列多值跨表转单行