以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  多值不显示重复值什么弄  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=169605)
--  作者：qazlinle6
--  发布时间：2021/6/22 18:18:00
--  多值不显示重复值什么弄
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("Users").GetComboListString("账号企业名").Replace(",", "|")


不显示重复值什么弄
--  作者：有点蓝
--  发布时间：2021/6/22 19:47:00
--  
dim lst as new list(of string)
for each s as string in DataTables("Users").GetComboListString("账号企业名").Replace(",", "|").split("|")
if lst.contains(s) = false then lst.add(s)
next

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = string.join("|",lst.toarray)