主题：多选目录树

按钮代码

试了一下，列“所需焊接资质”多选的话，怎么也只显示1项

比如

 

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

其中“所需焊接资质”列的勾选项能不能作为表B中A列的多值字段

 

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

此主题相关图片如下：捕获.jpg

例如“所需焊接资质”列勾选了4项，想把这4项作为表B中A列的值，要求A列的值为多值字段可进行勾选

参考

 

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

 

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

 

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

 

但是显示出来是这样的

 

□HD T GW Ⅱ c t35 D299 PA ss mb/HD T GW Ⅵ c t15 D273 PA ss mb/HM P GW PA bs ml 05/HM P GW PA ss mb ml 05

 

没有分成四个值

改成这样即可

 

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

还是老样子！