- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求解：双节节点进行筛选，但是对应双击的节点前复选框不选中？选中复选框后，不进行对应选择节点下的数据筛选？ (http://www.foxtable.com/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
-- 回复：（有点甜）
感谢有点甜老师 效果完美 再次感谢
-- 发布时间：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编辑过]
-- 发布时间：2014/8/4 18:56:00
--
不错。。