Dim nms As String() = {"项目名称","合同编号","客户名称"} '指定连接列
dt1.Combine(nms,dt3,nms)
dt1.Combine(nms,dt2,nms)
dt1.Show("统计表2") '显示统计结果,必须有这一句
DataTables("统计表2").DataCols.Add("当期应缴税", Gettype(Double), "convert( ( IsNull([应收应缴税额],0)-IsNull([累计已缴税],0) )*100,'System.Int64' )/100")
以下代码设置了没有起到分组统计的作用啊。
Dim t As Table = Tables("统计表2")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
'定义客户分组
g = New Subtotalgroup
g.GroupOn = "项目名称"
g.TotalOn = "当期应缴税,不含税租金"
t.SubtotalGroups.Add(g)
[此贴子已经被作者于2021/12/22 9:38:39编辑过]