[求助]窗口当前筛选行中指定值水平表转垂直列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:指定条件的水平行转垂直表.table

水平表转垂直表，求助，成绩表当前显示行中，姓名等于张三李四王五的人的行，才转到垂直表的列

Dim dtb As New DataTableBuilder("表B")

dtb.AddDef("班级", Gettype(String), 255)

For Each v As String In DataTables("成绩表").GetValues("姓名")

dtb.AddDef(v, Gettype(String), 999)

dtb.Build()

For Each dr As DataRow In DataTables("成绩表").Select("")

Dim dr1 As DataRow = DataTables("表B").AddNew()

dr1("班级") = dr("班级")

dr1(dr("姓名")) = dr("姓名")

MainTable = Tables("表B")

[此贴子已经被作者于2020/9/1 12:24:19编辑过]

主题：[求助]窗口当前筛选行中指定值水平表转垂直列