- 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=65067)
-- 发布时间：2015/3/8 17:19:00
-- 请教 目录树功能
此主题相关图片如下：qq截图20150308171338.png
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.CreateTree("表a","物料级别",".")
For i As Integer = trv.AllNodes.count - 1 To 0 Step -1
Dim nd As WinForm.TreeNode = trv.Allnodes(i)
Dim dr As DataRow = DataTables("表a").Find("物料级别 = \'" & nd.FullPath.Replace("\\",".") & "\'")
If dr IsNot Nothing
nd.text = dr("成品型号")
End If
Next
想在生成的节点前面加上条件，，
根据客户来生成，
请教大家怎么实现？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目8.foxdb |
[此贴子已经被作者于2015/3/8 17:19:51编辑过]
-- 发布时间：2015/3/8 19:15:00
--
呃，CreateTree，本来就是有条件参数的
http://www.foxtable.com/help/topics/1970.htm
-- 发布时间：2015/3/9 7:58:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.CreateTree("表a",“客户|物料级别",".")
For i As Integer = trv.AllNodes.count - 1 To 0 Step -1
Dim nd As WinForm.TreeNode = trv.Allnodes(i)
Dim dr As DataRow = DataTables("表a").Find("物料级别 = \'" & nd.FullPath.Replace("\\",".") & "\'")
If dr IsNot Nothing
nd.text = dr("成品型号")
End If
Next
这样不行？
-- 发布时间：2015/3/9 8:46:00
--
当然,不行,你都用了一列分割的方式, 你又组合两列,系统不知道你要做什么.
-- 发布时间：2015/3/9 9:10:00
--
你要合并两列？你加一列表达式吧，把两列合并起来，比如 AA.1.1
然后，根据表达式列生成目录树