主题：筛选

你为什么要加这个代码？ .replace("/", "|")

 

改成这样试试

 

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

1、分割符，请用逗号，或者特殊的符号，不要和焊接资质的字符相同才行。比如，你焊接资质是

 

(Y)GMAW-FeⅡ-1G-12-Fefs-11/15

 

如果还用/分割，那么就会冲突，用逗号，就不会冲突，或者用换行符等特殊字符

 

2、目录树窗口，确定按钮

 

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

 

3、prepareEdit事件

 

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

 

4、测试的时候，你需要重新选取，改成,或者其它特殊字符，才可以。

 

 

分割符，请用逗号，或者特殊的符号，不要和焊接资质的字符相同才行，比如，你要把原来的数据改成，如

 

(Y)GMAW-FeⅡ-1G-12-Fefs-11/15/(Y)GMAW-FeⅡ-1G-12-Fefs-11/15

 

改成

 

(Y)GMAW-FeⅡ-1G-12-Fefs-11/15,(Y)GMAW-FeⅡ-1G-12-Fefs-11/15