Foxtable(狐表)用户栏目专家坐堂 → 筛选统计中表达式写得不正确,求正解


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

主题:筛选统计中表达式写得不正确,求正解

帅哥哟,离线,有人找我吗?
dxjwlf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:261 积分:2195 威望:0 精华:0 注册:2015/5/15 14:51:00
筛选统计中表达式写得不正确,求正解  发帖心情 Post By:2018/1/7 10:49:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "流程|年|主体名称","","流程,年,受理时间 DESC")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Year As Integer= nd.DataRow("年")
    Dim Product As String = nd.DataRow("主体名称")
    Dim P As String = nd.DataRow("负责人")
    Dim t As String = nd.DataRow("流程")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "(" & dt.Compute("sum(件数)","流程 = '" & t & "'")  & "件)"
        Case 1
            
            nd.Text = nd.text & "年 (" & dt.Compute("sum(件数)", "流程 = '"&t&"' And "年 = "& Year) & "件)"
        Case 2
            nd.Text = nd.text & "|" & ""& p & ""
    End Select
Next
trv.Nodes.Insert("所有的行政许可","所有的行政许可(" & dt.Compute("sum(件数)") & "件)",0)


 回到顶部
帅哥哟,离线,有人找我吗?
dxjwlf
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:261 积分:2195 威望:0 精华:0 注册:2015/5/15 14:51:00
筛选统计中表达式写得不正确,求正解  发帖心情 Post By:2018/1/7 11:15:00 [只看该作者]


[此贴子已经被作者于2018/1/7 11:15:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/7 17:04:00 [只看该作者]

Case 1
   
    nd.Text = nd.text & "年 (" & dt.Compute("sum(件数)", "流程 = '" & t & "' And 年 = " & Year) & "件)"
 
 

 回到顶部