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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口按钮跨表多列转行提取数据

共有2365人关注过本帖树形打印复制链接主题：[求助]窗口按钮跨表多列转行提取数据

有点蓝

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

等级：超级版主帖子：106269 积分：540474 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/31 9:08:00 [显示全部帖子]

For Each adr As DataRow In DataTables("商品信息").Select("商品代码 is not null")

For Each adc As DataCol In DataTables("商品信息").DataCols

If adc.Name.StartsWith("门店") AndAlso adr.IsNull(adc.Name) = False Then

Dim dm As String = adc.Name.split("_")(1)

Dim bdr As DataRow = DataTables("分货单").Find("商品代码='" & adr("商品代码") & "' And 店名='" & dm & "'")

If bdr Is Nothing Then

bdr = DataTables("分货单").AddNew()

bdr("店名") = dm

bdr("供应商") = adr("供应商代码")

bdr("商品代码") = adr("商品代码")

End If

bdr("数量") = adr(adc.Name)

End If

有点蓝

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

等级：超级版主帖子：106269 积分：540474 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/31 10:10:00 [显示全部帖子]

建议保留多层表头，比较方便判断

If adc.Name <> "商品代码" andalso adc.Name <> "商品名称" andalso adc.Name <> xxxx列 and ...... Then

Dim dm As String = adc.Name

主题：[求助]窗口按钮跨表多列转行提取数据