老师: 您好!水平表转换为垂直表的代码
Dim dtb
As New DataTableBuilder("表B")
dtb.AddDef("班级",
Gettype(String), 4)
dtb.AddDef("姓名",
Gettype(String), 10)
dtb.AddDef("科目", Gettype(String),
10)
dtb.AddDef("分数", Gettype(Double))
dtb.Build()
Dim kms()
As String =
{"语文","数学","英语","物理","化学"}
For Each dr1 As
DataRow In DataTables("成绩表").DataRows
For
Each km As
String
In kms
Dim dr2 As
DataRow =
DataTables("表B").AddNew()
dr2("班级") = dr1("班级")
dr2("姓名") = dr1("姓名")
dr2("科目") = km
dr2("分数") = dr1(km)
Next
Next
MainTable = Tables("表B")
dim kms() as String = {不用列名,用列标题可以吗} ?
请老师指教!!!怎样写代码?
请老师指点!!!
谢谢!!!
[此贴子已经被作者于2021/2/7 0:07:05编辑过]