以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 分级汇总错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118873) |
||||
-- 作者:yifan3429 -- 发布时间:2018/5/12 18:49:00 -- 分级汇总错误 Case 0 nd.Text = nd.text & "(" & DataTables("终端用户").Compute("count(收客部门)","收客部门=\'" & nd.Text & "\'") & "户)" Case 1 nd.Text = nd.text & "(" & DataTables("终端用户").Compute( "收客部门=\'" & nd.Text & "\'and"count(客户等级)","客户等级=\'" & nd.Text & "\'") & "户)" 希望 第二个条件建立在第一个条件之内汇总 [此贴子已经被作者于2018/5/12 21:12:34编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2018/5/13 10:53:00 --
nd.Text = nd.text & "(" & DataTables("终端用户").Compute("收客部门=\'" & nd.parentNode.Text & "\' and 客户等级=\'" & nd.Text & "\'") & "户)"
|
||||
-- 作者:yifan3429 -- 发布时间:2018/5/13 13:39:00 -- .NET Framework 版本:2.0.50727.8762 Foxtable 版本:2018.3.9.1 错误所在事件:窗口,艾迪尔CRM管理,Button8,Click 详细错误信息: 无法计算。表达式“System.Data.NameNode”不是聚合。 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree(dt,"收客部门|客户等级|楼盘", "", "收客部门,客户等级,楼盘 DESC") trv.Nodes.Insert("我的全部客户",0) For Each nd As WinForm.TreeNode In trv.AllNodes Select Case nd.Level Case 0 nd.Text = nd.text & "(" & DataTables("终端用户").Compute("count(收客部门)","收客部门=\'" & nd.Text & "\'") & "户)" Case 1 nd.Text = nd.text & "(" & DataTables("终端用户").Compute("收客部门=\'" & nd.parentNode.Text & "\' and 客户等级=\'" & nd.Text & "\'") & "户)" 也是需要计算上一级的客户等级数量 Case 2 nd.Text = nd.text & "(" & DataTables("终端用户").Compute("收客部门=\'" & nd.parentNode.Text & "\' and 客户等级=\'" & nd.Text & "\' and 楼盘=\'" & nd.Text &") & "户)" 也是需要计算上面两个条件内的楼盘数量 End Select Next n d.Text = 我的全部客户& "(" & DataTables("终端用户").Compute("count(报备人)","报备人=\'" & nd.Text & "\'") & "户)" 将我的所有客户数量汇总 [此贴子已经被作者于2018/5/13 14:05:38编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2018/5/13 15:08:00 -- 上传具体实例说明你的问题,不然,参考
http://www.foxtable.com/webhelp/scr/2742.htm
http://www.foxtable.com/webhelp/scr/2741.htm
|
||||
-- 作者:yifan3429 -- 发布时间:2018/5/13 17:51:00 -- 实例请教
|
||||
-- 作者:有点甜 -- 发布时间:2018/5/13 18:53:00 -- Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree("订单","产品|客户|雇员", "", "产品,客户,雇员 DESC") trv.Nodes.Insert("我的全部客户",0) For Each nd As WinForm.TreeNode In trv.AllNodes Select Case nd.Level Case 0 nd.text = nd.name & "(" & DataTables("订单").Compute("count(产品)","产品=\'" & nd.name & "\'") & "户)" Case 1 nd.text = nd.name & "(" & DataTables("订单").Compute("count(产品)", "产品=\'" & nd.parentNode.name & "\' and 客户=\'" & nd.name & "\'") & "户)" Case 2 nd.text = nd.name & "(" & DataTables("订单").Compute("count(产品)","产品=\'" & nd.parentNode.parentNode.name & "\' and 客户=\'" & nd.parentNode.name & "\' and 雇员 = \'" & nd.name & "\'") & "户)" End Select Next |
||||
-- 作者:yifan3429 -- 发布时间:2018/5/15 18:18:00 --
|
||||
-- 作者:有点甜 -- 发布时间:2018/5/15 18:56:00 --
trv.Nodes.Insert("我的全部客户", "我的全部客户(" & DataTables("订单").Compute("count(产品)") & ")户") |
||||
-- 作者:yifan3429 -- 发布时间:2018/5/17 22:25:00 -- Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree(dt,"收客部门|客户等级|楼盘", "", "收客部门,客户等级,楼盘 DESC") trv.Nodes.Insert("我的全部客户",0) For Each nd As WinForm.TreeNode In trv.AllNodes Select Case nd.Level Case 0 nd.text = nd.name & "(" & DataTables("终端用户").Compute("count(收客部门)","收客部门=\'" & nd.name & "\'") & "户)" Case 1 nd.text = nd.name & "(" & DataTables("终端用户").Compute("count(收客部门)", "收客部门=\'" & nd.parentNode.name & "\' and 客户等级=\'" & nd.name & "\'") & "户)" Case 2 nd.text = nd.name & "(" & DataTables("终端用户").Compute("count(收客部门)","收客部门=\'" & nd.parentNode.parentNode.name & "\' and 客户等级=\'" & nd.parentNode.name & "\' and 楼盘 = \'" & nd.name & "\'") & "户)" End Select Next trv.Nodes.Insert("我的全部客户", "我的全部客户(" & DataTables("终端用户").Compute("count(报备人)") & ")户") 从字符串“我的全部客户(243)户”到类型“Integer”的转换无效。
|
||||
-- 作者:有点甜 -- 发布时间:2018/5/17 22:27:00 -- trv.Nodes.Insert("我的全部客户", "我的全部客户(" & DataTables("终端用户").Compute("count(报备人)") & ")户", 0) |