测试了,红色部分添加进去后提示相同键,调试之后提示设备名称和材料编码重复了。但是不知道怎么改?
Dim s As String = e.form.controls("月份1").Text
Dim d As Date = CDate(s.Insert(4, "-") & "-01")
Dim d2 As Date = New Date(d.Year, d.Month, Date.DaysInMonth(d.Year, d.Month))
Dim dict As New Dictionary(Of String, String)
For i As Integer = d.Day To d2.Day
e.DataRow(i) = Nothing
Dim dc As DataCol = e.DataTable.DataCols(i)
msgbox(dc.Caption & "--" & dc.Name)
dict.Add(dc.Caption, dc.Name)
Next
Dim b As New SQLGroupTableBuilder("统计表1", "油类切消液明细")
b.C
b.Groups.AddDef("使用设备")
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 = dr("领用日期").day
If dict.ContainsKey(cn) Then
e.DataRow(dict(cn)) = dr("领用数量")
End If
Next