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


  共有2586人关注过本帖平板打印复制链接

主题:[求助]列表项目(已解决)

帅哥哟,离线,有人找我吗?
天一生水
  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
        End If
    Next
Next

'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编辑过]

 回到顶部