水平表转垂直表,求助,成绩表 当前显示行中,姓名 等于 张三 李四 王五 的人的行,才转到垂直表的列
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编辑过]