以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]窗口当前筛选行中指定值水平表转垂直列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154025)

--  作者：miaoqingqing --  发布时间：2020/9/1 12:19:00 --  [求助]窗口当前筛选行中指定值水平表转垂直列  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:指定条件的水平行转垂直表.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) Next dtb.Build() For Each dr As DataRow In DataTables("成绩表").Select("")     Dim dr1 As DataRow = DataTables("表B").AddNew()     dr1("班级") = dr("班级")       dr1(dr("姓名")) = dr("姓名") Next MainTable = Tables("表B") [此贴子已经被作者于2020/9/1 12:24:19编辑过]

--  作者：有点蓝 --  发布时间：2020/9/1 13:46:00 --   For Each dr As DataRow In DataTables("成绩表").Select("姓名 in (\'张三\',\'李四\',\'王五\')")