With wb.AddTable("","Table1")
.Primarykey = "_Identify" '设置主键
.ActiveSheet = "menu" '设置菜单
Dim nms() As String
Dim amt As Double
.Head.AddRow("No.","药品名称","数量","销售定价","销售金额","订购日期")
For i As Integer = 0 To dt.DataRows.count - 1
Dim r As DataRow = dt.DataRows(i)
If i > 0 Then
Dim lr As DataRow = dt.DataRows(i-1)
If r("订购日期") <> lr("订购日期") Then
amt = dt.compute("sum(销售金额)","订购日期='" & lr("订购日期") & "'")
With .Body.AddRow()
.Attribute = "style='background-color:#F0FFFF'"
.AddCell(lr("订购日期") & "订购小计 " ,"colspan='4'")
.AddCells(amt,"")
End With
End If
End If
.Body.AddRow(r("NO."),r("药品名称"),r("数量"),r("销售定价"),r("销售金额"),format(r("订购日期"),"yyyy-MM-dd"))
Next
Dim dr2 As DataRow = dt.DataRows(dt.DataRows.count - 1)
amt = dt.compute("sum(销售金额)","订购日期='" & dr2("订购日期") & "'")
With .Body.AddRow()
.Attribute = "style='background-color:#F0FFFF'"
.AddCell(dr2("订购日期") & "订购小计 " ,"colspan='4'")
.AddCells(amt,"")
End With
End With
加好友 
发短信
Post By：2019/9/9 13:43:00 [显示全部帖子]
