老师请帮我改下有背景表达式错误,我总是会在表达式搞的头晕
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("入库单"))
b.Groups.AddDef("供应商简称")
b.Groups.AddDef("入库日期",DateGroupEnum.Year,"年")
b.Groups.AddDef("入库日期",DateGroupEnum.Month,"月")
b.Totals.AddDef("含税金额",AggregateEnum.Sum,"含税金额") '根据客户列来统计记录数,也就是订单数
dt = b.Build(True) '参数设置为True,生成一个临时表,不在主界面显示
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"供应商简称|年|月")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim nm As String = nd.DataRow("供应商简称")
Dim Year As Integer = nd.DataRow("年")
Dim Month As Integer = nd.DataRow("月")
Select Case nd.Level
Case 0
nd.Text = nd.text & "(￥:" & dt.Compute("Sum(含税金额)","供应商简称 = '"& nm & "'") & "元)"
Case 1
nd.Text = nd.text & "(￥:" & dt.Compute("Sum(含税金额)","供应商简称 = '" & nm & "' & "And 年 = " & year) & "元)"
'Case 2
'nd.Text = nd.text & "(￥:" & nd.DataRow("订单数") & "元)"
End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(￥:" & dt.Compute("Sum(含税金额)") & "元)",0)
trv.ResumeRedraw
加好友 
发短信
Post By：2018/9/1 15:11:00 [显示全部帖子]
