主题：多选目录树窗口问题

你是不是按住ctrl不放打开项目的？这种情况不会执行任何代码，所以设置会无效。

 

你是不是还对这些列【焊接方法一_所需焊接资质】设置了别的代码，如 combolist = "xxxx" 这个时候，列会显示下拉项目而不会显示下拉窗口了。

prepareEdit事件

 

If e.col.name = "第一列" Then

    e.col.combolist = e.row("焊接方法一_所需焊接资质").replace(",", "|")

End If

 

如果还有问题，做个例子上来说明

 

看不懂你的需求，做一个实例发上来说明。

If e.Col.name = "满足资质焊工" Then
Dim str As String = e.Row("所需焊接资质").replace(",", "','")
    e.Col.combolist = DataTables("焊工资质清单").GetComboListString("焊工姓名", "考试合格项目代号 in ('" & str & "')")
End If

dropdownopened事件，写代码

 

Dim s As String  = e.Form.DropDownBox.Value
Dim nms As new List(of String)
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If s > "" Then
    nms.AddRange(s.Split(","))
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
    nd.Checked = nms.Contains(nd.text)
Next

If e.Col.name = "第一列" Then
    Dim fdr As DataRow = DataTables("表A").find("条件")

    If fdr IsNot Nothing then
        e.Col.combolist = fdr("焊接方法一_所需焊接资质").replace(",", "|")

    End If
End If

Dim fdr As DataRow = DataTables("焊接工艺卡清单").Find("工艺卡号 = '" & e.Row("工艺卡号") & "' And 焊接方法 = '" & e.Row("焊接方法") & "'")