If e.Col.Name = "跟进供应商联系人" Then
'如果准备编辑的是"跟进供应商联系人"列
Dim drs As List(Of DataRow) = DataTables("供应商联系人信息表").Select("所属供应商 = '" & e.Row("跟进供应商") & "' ")
'找出"供应商联系人信息表"信息表中"所属供应商"与当前编辑行"跟进供应商"相同的所有行
If drs.Count > 0
Dim ls As new List(of String)
'定义一个字符集
For Each dr As DataRow In drs
ls.add(dr("供应商联系人"))
'将找出来的所有行里的"供应商联系人"放进字符集
Next
e.Col.ComboList = String.join("|",ls.ToArray)
'当前行的下拉列表待选值为ls里的"供应商联系人"
End If
End If
[此贴子已经被作者于2021/5/18 16:24:50编辑过]
加好友 
发短信
Post By：2021/5/18 16:19:00 [显示全部帖子]
