问一个垂直列变水平行的问题原表是这样的
写了如下代码后，
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("第一列",Gettype(String), 4)
dtb.AddDef("第二列",Gettype(String), 10)
dtb.AddDef("第三列_名称",Gettype(String), 10)
dtb.AddDef("第三列_内容",Gettype(String), 10)
dtb.AddDef("列b",Gettype(String), 10)
dtb.AddDef("列c",Gettype(String), 4)
dtb.AddDef("第六列",Gettype(String), 10)
dtb.Build()
Dim kms() As String = {"第三列_a","第四列_a","第五列_a"}
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("第六列") = dr1("第六列")
dr2("列b") = dr1("第二列")
dr2("列c") = dr1("第六列")
dr2("第三列_名称") = km
dr2("第三列_内容") = dr1(km)
Next
Next
MainTable = Tables("表B")
变成了这样
我想问，列b和列c要怎么样定义，他们下面的内容才是和a相吻合的内容啊？
谢谢大大
加好友 
发短信
Post By：2017/7/19 10:37:00 [显示全部帖子]
