[求助]目录树中加载符合条件的数据?? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：[求助]目录树中加载符合条件的数据??