……
End If
.Body.AddRow(r("计划生产日期"),r("生产机台"),r("产品类别"),r("颜色"),r("数量"))
Next
Dim r As DataRow = dt.DataRows(dt.DataRows.count-1)
qty = dt.compute("sum(数量)"," 生产机台= '" & r("生产机台") & "'")
With .Body.AddRow()
.Attribute = "style='background-color:#F0FFFF'"
.AddCell("小计 " & r("生产机台"),"colspan='4'")
.AddCells(qty)
End With
qty = dt.compute("sum(数量)")
' amt = dt.compute("sum(金额)")
If EndRow >= dt.DataRows.count Then
.Body.AddRow("总计","","","",qty).Attribute = "style='background-color:#98FB98'"
End If
加好友 
发短信
Post By：2023/4/22 11:09:00 [显示全部帖子]
