主题：多选目录树

修改红色代码

 

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

另外，“符合资质焊工”列显示的值会有重复的，能进行筛选么？相同姓名不重复显示！

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

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

 

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)

放datacolchanged事件？

 

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

 

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

 

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

我在datacolchanged事件编码如下，为什么不行？

Dim s As String = DataTables("焊接工艺卡及焊缝清单").GetComboListString("符合资质焊工")
output.show(s)

 

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

 

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

 

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

Dim str As String = "aaa/bbb/ccc/aaa/123/bbb"

这句怎么写?每个单元格都不同？

 

Dim str As String = e.DataRow(“符合资质焊工”) ?  感觉又不对

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