做个分组统计，和表头有啥关系
If e.DataCol.Name = "使用设备" Then
Dim dict As new Dictionary(of String,String)
For i As Integer = 1 To 31
e.DataRow("日" & i) = Nothing
Dim dc As DataCol = e.DataTable.DataCols("日" & i)
dict.Add(dc.Caption,dc.Name)
Next
Dim b As New GroupTableBuilder("统计表1",DataTables("开机任务表"))
b.Groups.AddDef("使用设备")
b.Groups.AddDef("生产日期",DateGroupEnum.None)
b.Totals.AddDef("当班任务")
b.Filter = "使用设备 = '" & e.DataRow("使用设备") & "'"
Dim dt As DataTable = b.Build(True)
For Each dr As DataRow In dt.DataRows
Dim cn As String = format(dr("生产日期"),"MM-dd")
If dict.ContainsKey(cn)
e.DataRow(dict(cn)) = dr("当班任务")
End If
Next
End If
加好友 
发短信
Post By：2019/7/16 9:04:00 [显示全部帖子]
