- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]目录树中加载符合条件的数据?? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57567)
-- 发布时间：2014/9/26 17:03:00
-- [求助]目录树中加载符合条件的数据??
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("分类体系_类别")
\'Tables("分类体系_类别").Filter = "[类别码] = \'CH\'"
\'Tables("分类体系_类别").Sort = "分类编码"
加载数据要求为:表(分类体系_类别)中类别码="CH",并按分类编码排好序的?????
tr.Nodes.Clear
tr.Nodes.Add("全部")
For Each dr As DataRow In dt.datarows
If dr.IsNull("父类编码") Then
nd = tr.Nodes.Add(dr("分类编码"),dr("分类名称"))
Functions.Execute("test1",nd,dt)
End If
Next
此主题相关图片如下：qq图片20140926170045.jpg
-- 发布时间：2014/9/26 17:05:00
--
CH表示存货,DQ表示地区,BM表示部门
-- 发布时间：2014/9/26 17:06:00
--
Tables("分类体系_类别").Filter = "[类别码] = \'CH\'"
Tables("分类体系_类别").Sort = "分类编码"
-- 发布时间：2014/9/26 17:06:00
--
或者
-- 发布时间：2014/9/26 17:22:00
--
好像没用,根类是不见了别的类别,但子类中把相同子父类都加进去了
-- 发布时间：2014/9/26 17:26:00
--
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("分类体系_类别")
能不能在这儿进行筛选??在下面的程序进行筛选,我的全部[\'tr.Nodes.Add("全部")]就不能用了
\'Tables("分类体系_类别").Filter = "[类别码] = \'CH\'"
\'Tables("分类体系_类别").Sort = "分类编码"
tr.Nodes.Clear
\'tr.Nodes.Add("全部")
\'For Each dr As DataRow In dt.datarows
For Each dr As DataRow In dt.Select("[类别码] = \'CH\'","分类编码")
If dr.IsNull("父类编码") Then
nd = tr.Nodes.Add(dr("分类编码"),dr("分类名称"))
Functions.Execute("test1",nd,dt)
End If
Next
-- 发布时间：2014/9/26 17:30:00
--
最主要问题可能是:分类编码在不同类别码中是有重复的.如:112在BM中代表销售组,在CH中代表带皮前\\中\\后????
-- 发布时间：2014/9/26 17:39:00
--
例子发上来，应该不难。
-- 发布时间：2014/9/26 17:44:00
--
我用的是外部数据源,可以发吗??
-- 发布时间：2014/9/26 17:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学习系统.zip |