主题：多选目录树

比如

Dim s1 As String = ""
Dim s2 As String = ""
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If nd.Level = 1 Then
            e.Form.DropTable.Current("发证机构") = nd.ParentNode.Text
            s1 = s1 & "," & nd.Text
        ElseIf nd.Level = 2 Then
            s2 = s2 & "," & nd.Text
        End If
    End If
Next
e.Form.DropDownBox.Value = s1.trim(",")
e.Form.DropTable.Current("符合资质焊工") = s2.trim(",")
e.Form.DropDownBox.CloseDropdown

什么意思，具体一点你的问题。截图说明，实例发上来测试。

参考

http://www.foxtable.com/webhelp/scr/1528.htm

http://www.foxtable.com/webhelp/scr/1843.htm

改成这样即可

        e.Col.Combolist = DataTables("焊接工艺卡及焊缝清单").GetComboListString("所需焊接资质","工艺卡号 = '" & e.Row("工艺卡号") & "' And 焊接方法 = '" & e.Row("焊接方法") & "'").replace(",", "|")

修改红色代码

e.Col.Combolist = DataTables("焊接工艺卡及焊缝清单").GetComboListString("所需焊接资质","工艺卡号 = '" & e.Row("工艺卡号") & "' And 焊接方法 = '" & e.Row("焊接方法") & "'").replace("/", "|")

得到数据后，再处理一下，如

Dim str As String = "aaa/bbb/ccc/aaa/123/bbb"
Dim ls As new List(Of String)
For Each s As String In str.split("/")
    If ls.Contains(s) = False Then
        ls.add(s)
    End If
Next
str = String.join("|", ls.ToArray)
msgbox(str)

1、可以放在你赋值的时候那里处理；

2、也可以放在datacolchanged事件，得到数据后去掉重复；

3、放在你任意想放的位置。

1、你这段代码要做什么？

2、认认真真理解24楼代码，和你之前的代码合并起来实现功能。

3、如果确实不会做，上传具体实例，说明你要做什么。

Dim str As String = e.datarow("某列")
Dim ls As new List(Of String)
For Each s As String In str.split("/")
    If ls.Contains(s) = False Then
        ls.add(s)
    End If
Next
str = String.join("|", ls.ToArray)
e.datarow("某列") = str