Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分级汇总错误


  共有2174人关注过本帖树形打印复制链接

主题：分级汇总错误
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		分级汇总错误  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/5/13 17:51:00 [显示全部帖子]

实例请教
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/5/15 18:18: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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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”的转换无效。
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/5/17 23:01:00 [显示全部帖子]

单击后加载所有数据可以吗

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/5/17 23:06:00 [显示全部帖子]

Dim Values() As String = e.Form.Controls("CheckedComboBox选择列").Text.Split(",")
Dim strs() As String = e.Node.FullName.Split("\")
Dim flt As String = "1=1"
For i As Integer = 0 To strs.Length - 1 ''间接获取目录树层级(Level)
    flt += " And " & Values(i) & "= '" & strs(i) & "'"
Next
If flt > "" Then
    Tables(Vars("表名")).Filter = flt
    'Tables(Vars("表名")).Load
End If

Dim Filter As String
If e.node.Text = "全部客户" Then
    Filter = ""
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 6 次数据查询