以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求解:双节节点进行筛选,但是对应双击的节点前复选框不选中?选中复选框后,不进行对应选择节点下的数据筛选?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51209)

--  作者:李孝春
--  发布时间:2014/5/21 22:23:00
--  求解:双节节点进行筛选,但是对应双击的节点前复选框不选中?选中复选框后,不进行对应选择节点下的数据筛选?

求解:双节节点进行筛选,但是对应双击的节点前复选框不选中?选中复选框后,不进行对应选择节点下的数据筛选?

在主要窗体这个窗口中

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:信息发布调研文章.rar


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140522194508.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2014/5/21 23:05:00
--  

 如下

 

  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:信息发布调研文章20140520.table


--  作者:李孝春
--  发布时间:2014/5/21 23:13:00
--  回复:有点甜老师

感谢有点甜老师那么晚还帮我解决问题,经过测试 问题达到了效果。

再请教一下有点甜老师
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

选择显示所有行,下面的节点没有全部打勾


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看
选择了节点,下面的节点没有全部打勾,

同时下面的节点全部打勾之后,上级节点没有对应打勾!【这个问题系双击,可否改为单击】

[此贴子已经被作者于2014-5-21 23:18:58编辑过]

--  作者:有点甜
--  发布时间:2014/5/22 9:38:00
--  

 如下

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:信息发布调研文章20140520.table


--  作者:李孝春
--  发布时间:2014/5/22 10:08:00
--  回复:(有点甜)
感谢有点甜老师  效果完美  再次感谢
--  作者:qhczy
--  发布时间:2014/8/4 11:09:00
--  
继续增加节点,提问.实现所在单位,所在部门,年,月 文稿数.在目录树中显示.代码如下,提示错误!

\'首先生成统计表
Dim dt1 As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("稿件投稿"))
b.Groups.AddDef("所在单位")
b.Groups.AddDef("所在部门")
b.Groups.AddDef("刊登时间",DateGroupEnum.Year,"年")
b.Groups.AddDef("刊登时间",DateGroupEnum.Month,"月")
b.Groups.AddDef("稿件作者")
b.Groups.AddDef("文件类型")
b.Totals.AddDef("稿件作者",AggregateEnum.Count,"订单数") \'根据客户列来统计记录数,也就是订单数
dt1 = b.Build(False) \'参数设置为False,生成一个临时表,不在主界面显示
\'b.build
\'MainTable = Tables("统计表1")
\'\'\'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt1, "所在单位|所在部门|年|月|稿件作者|文件类型")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
        Dim szdw As String = nd.DataRow("所在单位")
        Dim szbm As String = nd.DataRow("所在部门")
    Dim Year As Integer = nd.DataRow("年")
    Dim Month As Integer = nd.DataRow("月")
    Dim Product As String = nd.DataRow("稿件作者")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "年(" & dt1.Compute("Sum(订单数)","年 = " & Year & " and 所在单位= "& szdw ) & "条)"
        Case 1
            nd.Text = nd.text & "月(" & dt1.Compute("Sum(订单数)","年 = " & Year & " and 所在单位= "& szdw &" And 所在部门 = "& szbm &" And 月 = " & Month) & "条)"
        Case 2
            nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"
        Case 3
            nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt1.Compute("Sum(订单数)") & "条)",0)
trv.ResumeRedraw
[此贴子已经被作者于2014-8-4 11:10:35编辑过]

--  作者:332595
--  发布时间:2014/8/4 18:56:00
--  
不错。。