主题：目录树列表问题

  If vars("str100") = "根" Then
    Dim chk As WinForm.CheckBox
    chk = e.Form.Controls("CheckBox1")
    If chk.Checked = True Then
        Dim tr As WinForm.TreeView
        Dim nd As WinForm.TreeNode
        tr = Forms("参数设置").Controls("TreeView1")
       
        Dim i1 AS Integer
        Dim i2 AS Integer
        Dim str1 As String
       
        i1 = DataTables("单位树").Compute("count(节点)","节点 = 0") + 1
       
        str1 = format(i1,"00")
        Dim txtBox As WinForm.TextBox
        txtBox = e.Form.Controls("TextBox1")
        nd = Tr.Nodes.Add(str1,txtBox.value)
        tr.SelectedNode = nd
       
        Dim 新行1 As DataRow
        新行1 = DataTables("单位树").AddNew()
        新行1("标题id") = str1
        新行1("标题") = txtbox.Value
        新行1("节点") = 0
        新行1("节点位") = i1
        txtBox.value = ""
        txtBox.Select()
    Else
        Dim tr As WinForm.TreeView
        Dim nd As WinForm.TreeNode
        tr = Forms("参数设置").Controls("TreeView1")
       
       
        Dim i1 AS Integer
        Dim i2 AS Integer
        Dim str1 As String
       
       
        i1 = DataTables("单位树").Compute("count(节点)","节点 = 0") + 1
       
        str1 = format(i1,"00")
        Dim txtBox As WinForm.TextBox
        txtBox = e.Form.Controls("TextBox1")
        nd = Tr.Nodes.Add(str1,txtBox.value)
        tr.SelectedNode = nd
       
       
        Dim 新行1 As DataRow
        新行1 = DataTables("单位树").AddNew()
        新行1("标题id") = str1
        新行1("标题") = txtbox.Value
        新行1("节点") = 0
        新行1("节点位") = i1
       
       
       
        txtBox.value = ""
        e.form.Close()
    End If
Else
    Dim chk As WinForm.CheckBox
    chk = e.Form.Controls("CheckBox1")
    If chk.Checked = True Then
        Dim tr As WinForm.TreeView
        Dim nd As WinForm.TreeNode
        tr = Forms("参数设置").Controls("TreeView1")
       
       
        Dim i1 AS Integer
        Dim i2 AS Integer
        Dim str1 AS String
        Dim str2 AS String
        nd=tr.SelectedNode
        str1 = nd.name
        i2=nd.Level+1
        i1 = DataTables("单位树").Compute("count(节点)"," 标题ID like '" & str1 & "'") + 1
       
       
       
        str2 = format(i1,"00")
        Dim txtBox As WinForm.TextBox
        txtBox = e.Form.Controls("TextBox1")
        nd.Nodes.Add( str1 & str2 ,txtBox.value)
       
       
        Dim 新行1 As DataRow
        新行1 = DataTables("单位树").AddNew()
        新行1("标题id") = str1 & str2
        新行1("标题") = txtbox.Value
        新行1("节点") = i2
        新行1("节点位") = i1
       
       
       
       
       
        txtBox.value = ""
        txtBox.Select()
        nd = tr.SelectedNode
        nd.Expand()
    Else
        Dim tr As WinForm.TreeView
        Dim nd As WinForm.TreeNode
        tr = Forms("参数设置").Controls("TreeView1")
       
       
        Dim i1 AS Integer
        Dim i2 AS Integer
        Dim str1 AS String
        Dim str2 AS String
        nd=tr.SelectedNode
        str1 = nd.name
        i2=nd.Level+1
       
        i1 = DataTables("单位树").Compute("count(节点)","标题id like '" & str1 & "'") + 1
       
       
       
        str2 = format(i1,"00")
        Dim txtBox As WinForm.TextBox
        txtBox = e.Form.Controls("TextBox1")
        nd.Nodes.Add( str1 & str2 ,txtBox.value)
       
       
        Dim 新行1 As DataRow
        新行1 = DataTables("单位树").AddNew()
        新行1("标题id") = str1 & str2
        新行1("标题") = txtbox.Value
        新行1("节点") = i2
        新行1("节点位") = i1
       
       
       
        txtBox.value = ""
        nd = tr.SelectedNode
        nd.Expand()
        e.form.Close()
    End If
End If

 

 

此主题相关图片如下：未标题-1 拷贝.jpg

还是不行

希望得到目录树列表排序帮助（与源数据表排序相同）

 

上传你的文件。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

 

2个问题：1、[用料]表型号规格的排序与[产品]表要求一致；2、在[产品]表中增加数据，[用料]表的下拉目录树及时更新；

用列属性中的目录树列表，我也做不到。

这是[产品]表窗口中目录树,我希望目录树中的产品分类按[产品]表产品分类顺序显示

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

e.Form.Controls("TreeView1").BuildTree("产品", "产品分类|型号|规格","","_Identify")

这个可以增加产品表的辅助列间接实现吧···