以文本方式查看主题 - 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 -- 求解:双节节点进行筛选,但是对应双击的节点前复选框不选中?选中复选框后,不进行对应选择节点下的数据筛选? 求解:双节节点进行筛选,但是对应双击的节点前复选框不选中?选中复选框后,不进行对应选择节点下的数据筛选? 在主要窗体这个窗口中
此主题相关图片如下:qq图片20140522194508.jpg |
||||
-- 作者:有点甜 -- 发布时间:2014/5/21 23:05:00 -- 如下
|
||||
-- 作者:李孝春 -- 发布时间:2014/5/21 23:13:00 -- 回复:有点甜老师 感谢有点甜老师那么晚还帮我解决问题,经过测试 问题达到了效果。 选择显示所有行,下面的节点没有全部打勾
同时下面的节点全部打勾之后,上级节点没有对应打勾!【这个问题系双击,可否改为单击】 [此贴子已经被作者于2014-5-21 23:18:58编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2014/5/22 9:38:00 -- 如下
|
||||
-- 作者:李孝春 -- 发布时间: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 -- 不错。。 |