- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]表格的ComboList下拉列表待选值如何取字符集中的字符 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=166100)
-- 发布时间：2021/5/18 15:43:00
-- [求助]表格的ComboList下拉列表待选值如何取字符集中的字符
请教老师：我在PrepareEdit事件中写有代码：
If e.Col.Name = "跟进供应商联系人" Then
\'如果准备编辑的是"跟进供应商联系人"列
Dim drs As List(Of DataRow) = DataTables("供应商联系人信息表").Select("所属供应商 = \'" & e.DataRow("跟进供应商") & "\' ")
\'找出"供应商联系人信息表"信息表中"所属供应商"与当前编辑行"跟进供应商"相同的所有行
Dim ls As List(of String)
\'定义一个字符集
For Each dr As DataRow In drs
ls.add(dr("供应商联系人"))
\'将找出来的所有行里的"供应商联系人"放进字符集
Next
e.Col.ComboList = 这行代码不知道怎么写
\'当前行的下拉列表待选值为ls里的"供应商联系人"
End If
-- 发布时间：2021/5/18 16:19:00
--
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编辑过]
-- 发布时间：2021/5/18 16:35:00
--
此主题相关图片如下：1.jpg
这个报错是什么鬼？
-- 发布时间：2021/5/18 16:35:00
--
If e.Col.Name = "跟进供应商联系人" Then
e.Col.ComboList = DataTables("供应商联系人信息表").GetComboListString("供应商联系人","所属供应商 = \'" & e.Row("跟进供应商") & "\' ")
\'当前行的下拉列表待选值为ls里的"供应商联系人"
End If
End If
-- 发布时间：2021/5/19 19:38:00
--
蓝老师，这样没用，不知道为什么。筛选的代码不起作用，运行结果相当于
If e.Col.Name = "跟进供应商联系人" Then
e.Col.ComboList = DataTables("供应商联系人信息表").GetComboListString("供应商联系人")
End If
-- 发布时间：2021/5/20 9:19:00
--
不可能，请上传实例说明