主题：目录树中产生了乱码，请大侠帮我斧正

我觉得这个乱并不碍事，因为节点名称是随机生成的，你引用了名称，肯定就是这样的了。

不过你的代码实在太乱了。

这样试试

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("参数设置").Controls("TreeView1")
Dim i1,i2 AS Integer
Dim str1,str2 AS String
Dim txtBox As String = e.Form.Controls("TextBox1").Value
If txtBox = "" Then
    MessageBox.Show("请输入要增加节点的名称!","提示")
    Return
End If
Dim 新行1 As DataRow
新行1 = DataTables("单位树").AddNew()
If vars("str100") = "根" Then
    i1 = DataTables("单位树").Compute("count(节点)","节点 = 0") + 1
    str1 = format(i1,"00")
    nd = Tr.Nodes.Add(str1,txtBox)
    tr.SelectedNode = nd
    新行1("标题id") = str1
    新行1("标题") = txtbox
    新行1("节点") = 0
    新行1("节点位") = i1
    txtBox = ""
Else
    nd=tr.SelectedNode
    str1 = nd.Name
    Dim dr As DataRow = DataTables("单位树").Find("标题 = '" & nd.Text & "'")
    i2=nd.Level+1
    i1 = DataTables("单位树").Compute("count(节点)","标题id like '" & str1 & "'") + 1
    str2 = format(i1,"00")
    nd.Nodes.Add( str1 & str2 ,txtBox)
    新行1("标题id") = dr("标题id") & str2
    新行1("标题") = txtbox
    新行1("节点") = i2
    新行1("节点位") = i1
    txtBox = ""
    nd.Expand()
End If
If e.Form.Controls("CheckBox1").Checked = True Then
    e.Form.Controls("TextBox1").Select()
Else
    e.form.Close()
End If

使用楼上代码前请先执行一下下面的代码：

For Each dr As DataRow In DataTables("单位树").DataRows
    dr("标题id") = dr("标题id").Trim()
Next

不是我不帮，其实你这个文件我看过多次，问题很多，一旦帮你改动问题会没完没了的来，所以每次最终都是放弃。

我没研究过“华海仓库管理”，不知道他的具体思路，我按我的思路增加了一个辅助列，供你参考。

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

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