这个意思？
Dim dtb As New DataTableBuilder("报表图表")
dtb.AddDef("线别", Gettype(String), 255)
dtb.AddDef("成品描述", Gettype(String), 255)
dtb.AddDef("项目", Gettype(String), 255)
Dim Arys As List(Of String()) = DataTables("质量月度报表").GetValues("年|月")
For Each ar As String() In Arys
dtb.AddDef(ar(0) & "_" & ar(1), Gettype(Double))
Next
dtb.Build()
Dim xms() As String = {"来料不良率","加工不良率","设备不良率","调机不良率"}
For Each dr1 As DataRow In DataTables("质量月度报表").DataRows
For Each xm As String In xms
Dim dr2 As DataRow = DataTables("报表图表").AddNew()
dr2("线别") = dr1("线别")
dr2("成品描述") = dr1("成品描述")
dr2("项目") = xm
dr2(dr1("年") & "_" & dr1("月")) = dr1(xm)
Next
Next
MainTable = Tables("报表图表")
加好友 
发短信
Post By：2019/4/19 23:14:00 [显示全部帖子]
