Foxtable(狐表)用户栏目专家坐堂 → [求助]如何让组合复选框的项目顺序与列位置顺序一致


  共有2049人关注过本帖树形打印复制链接

主题:[求助]如何让组合复选框的项目顺序与列位置顺序一致

帅哥哟,离线,有人找我吗?
绿火柴
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:4464 威望:0 精华:0 注册:2014/3/4 21:20:00
[求助]如何让组合复选框的项目顺序与列位置顺序一致  发帖心情 Post By:2020/7/9 18:23:00 [只看该作者]

Dim tab as table = tables("XXX")
Dim cb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim str As String
For ia As Integer = 0 To tab.Cols.Count - 1
Dim dc As Col = tab.Cols(ia)
    If str = "" Then
        str = dc.Name
    Else
        str = dc.Name & "|"  & str
    End If
Next
cb.ComboList = str

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105877 积分:538442 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/9 20:03:00 [只看该作者]

Dim tab as table = tables("XXX")
Dim cb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim str As String
For ia As Integer = 0 To tab.Cols.Count - 1
Dim dc As Col = tab.Cols(ia)
    str =str & "|" & dc.Name
Next
cb.ComboList = str.trim("|")

 回到顶部
帅哥哟,离线,有人找我吗?
绿火柴
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:4464 威望:0 精华:0 注册:2014/3/4 21:20:00
  发帖心情 Post By:2020/7/9 23:20:00 [只看该作者]

明白了,是我顺序搞反了。

 回到顶部