| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 代码求纠错！在目录树中显示统计数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54980) |
| -- 作者：李孝春 -- 发布时间：2014/8/8 12:23:00 -- 代码求纠错！在目录树中显示统计数据 求纠正红色部分代码 谢谢 \'首先生成统计表 Dim dt As DataTable Dim b As New GroupTableBuilder("统计表1",DataTables("订单编码")) b.Groups.AddDef("录入时间",DateGroupEnum.Year,"年") b.Groups.AddDef("录入时间",DateGroupEnum.Month,"月") \'b.Groups.AddDef("录入时间",DateGroupEnum.Date,"日") b.Groups.AddDef("组别") b.Groups.AddDef("业务人员") b.Totals.AddDef("业务人员",AggregateEnum.Count,"订单数") \'根据客户列来统计记录数,也就是订单数 dt = b.Build(False) \'参数设置为False,生成一个临时表,不在主界面显示 \'然后根据统计表生成目录树 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree(dt, "年|月|组别|业务人员") trv.StopRedraw For Each nd As WinForm.TreeNode In trv.AllNodes Dim Year As Integer = nd.DataRow("年") Dim Month As Integer = nd.DataRow("月") Dim Product As String = nd.DataRow("组别") Dim yewurenyuan As String = nd.DataRow("业务人员") Select Case nd.Level Case 0 nd.Text = nd.text & "年(" & dt.Compute("Sum(订单数)","年 = " & Year) & "条)" Case 1 nd.Text = nd.text & "月(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month) & "条)" Case 2 nd.Text = nd.text & "组别(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month) & And 组别 = " & nd.DataRow("组别") & "条)" Case 3 nd.Text = nd.text & "业务人员(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month) & And 组别 =" & nd.DataRow("组别") & and 业务人员=“& nd.DataRow("业务人员") & "条)" Case 4 nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)" End Select Next trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(订单数)") & "条)",0) trv.ResumeRedraw
[此贴子已经被作者于2014-8-8 12:23:25编辑过]
|
| -- 作者：ericsky -- 发布时间：2014/8/8 12:34:00 -- 试试看可以吗： nd.Text = nd.text & "组别(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month & " And 组别 = \'" & nd.DataRow("组别") & "\'") & "条)"
|
| -- 作者：李孝春 -- 发布时间：2014/8/8 12:43:00 -- 回复：（ericsky）试试看可以吗： nd.Text = nd.... 这个呢？ nd.Text = nd.text & "业务人员(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month) & " And 组别 =\'" & nd.DataRow("组别") & "\' "And 业务人员 =\'" & nd.DataRow("业务人员") & "\'") & "条)" 提示错误 没声明 业务人员
|
| -- 作者：ericsky -- 发布时间：2014/8/8 13:02:00 -- nd.Text = nd.text & "组别(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month & " And 组别 = \'" & nd.DataRow("组别") & "\' And 业务人员 = \'" & nd.DataRow("业务人员") & "\'") & "条)" 泡泡老师有一篇关于条件表达式的视频，建议看看，条件表达式是必备技巧。
|
| -- 作者：李孝春 -- 发布时间：2014/8/8 13:26:00 -- 回复：（ericsky）nd.Text = nd.text & "组别(" &... 谢谢 表达式容易整晕乎 有时候多一个符号就错误了 |