[求助]列表项目（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]列表项目（已解决）

共有2933人关注过本帖树形打印复制链接主题：[求助]列表项目（已解决）

天一生水

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]列表项目（已解决） 发帖心情

Post By：2021/5/20 21:36:00 [显示全部帖子]

蓝老师好！

我想把重新获取的集合 Pros 作为CheckedComboBox的列表项，怎样赋值？

谢谢!

Dim Products As List(Of String)

Dim Pros As New List(Of String)

Products = DataTables("数据表").SQLGetValues("被告类别")

For Each Product As String In Products

For Each s As String In Product.split("|")

If s > "" Then

If Pros.Contains(s)= False Then

Pros.Add(s)

End If

'For Each Pro As String In Pros

'Output.Show(Pro)

'Next

Dim cmb As WinForm.CheckedComboBox

cmb = e.Form.Controls("CheckedComboBox1")

cmb.ComboList = ？

[此贴子已经被作者于2021/5/20 22:01:14编辑过]

天一生水

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2021/5/20 21:51:00 [显示全部帖子]

解决了。是这种情况：

此主题相关图片如下：截屏图片.jpg

Dim Products As List(Of String)

Dim Pros As New List(Of String)

Products = DataTables("数据表").SQLGetValues("被告类别")

For Each Product As String In Products

For Each s As String In Product.split("|")

If s > "" Then

If Pros.Contains(s)= False Then

Pros.Add(s)

End If

Dim str As String= ""

For Each Pro As String In Pros

'Output.Show(Pro)

str & = pro & "|"

str = str.Trim("|")

Dim cmb As WinForm.CheckedComboBox

cmb = e.Form.Controls("CheckedComboBox1")

cmb.ComboList = str

[此贴子已经被作者于2021/5/20 22:00:33编辑过]

下一主题 >> << 上一主题

主题：[求助]列表项目（已解决）