主题：目录树列表问题

窗口treeview的 节点名称 name 怎么产生的是乱码

  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