- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口当前筛选行中指定值水平表转垂直列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154025)
-- 发布时间：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 (\'张三\',\'李四\',\'王五\')")