Dim dtb As New DataTableBuilder("转换成垂直表1")
dtb.AddDef("星期几", GetType(String), 16)
dtb.AddDef("编排序号", GetType(String), 16)
dtb.AddDef("节次", GetType(String), 16)
dtb.AddDef("时间", GetType(String), 20)
dtb.AddDef("教研班组", GetType(String), 16)
dtb.AddDef("年级班级", GetType(String), 16)
dtb.AddDef("课程名称", GetType(String), 20)
dtb.Build()
Dim kms() As String = {"第1组_八班级1班", "第1组_八班级2班", "第2组_八班级3班", "第2组_八班级4班", "第3组_八班级5班", "第3组_八班级6班", "第4组_八班级7班", "第4组_八班级8班"}
For Each dr1 As DataRow In DataTables("课表82竖0").DataRows
For Each km As String In kms
Dim dr2 As DataRow = DataTables("转换成垂直表1").AddNew()
dr2("星期几") = dr1("星期几")
dr2("编排序号") = dr1("编排序号")
dr2("节次") = dr1("节次")
dr2("时间") = dr1("时间")
Dim ss() As String = km.split("_")
dr2("教研班组") = ss(0)
dr2("年级班级") = ss(1)
dr2("课程名称") = dr1(km)
Next
Next
MainTable = Tables("转换成垂直表1")
蓝老师,课程名称数据没出来,那里代码有问题