Foxtable(狐表)用户栏目专家坐堂 → 老师您好,关于getcomboliststring的问题。


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

主题:老师您好,关于getcomboliststring的问题。

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


加好友 发短信
等级:幼狐 帖子:100 积分:925 威望:0 精华:0 注册:2016/12/5 10:41:00
老师您好,关于getcomboliststring的问题。  发帖心情 Post By:2017/4/6 9:56:00 [只看该作者]

我有一个列的单元格是这样的。
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170406095230.png
图片点击可在新窗口打开查看

所以getcomboiststing后 总会有词条重复。

 

我要用什么办法将提取后的词条再提取一次呢?

 

比如说

datatables.("b").getcomboliststring("cc",datatables("b")getcomboliststring("cc"))

 

或者

 

e.form("label1").text = datatables.("b").getcomboliststring("cc")

dim pp as string = e.form("label1").text

e.form("combobox1").combolist = XXXX.getcombolistring(pp)

 

大概就是这个意思。  额。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/6 10:14:00 [只看该作者]

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("表A").datarows
    For Each s As String In dr.Lines("第二列")
        If ls.contains(s) = False Then
            ls.add(s)
        End If
    Next
Next
Dim str As String = String.Join("|", ls.ToArray)
msgbox(str)

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


加好友 发短信
等级:幼狐 帖子:100 积分:925 威望:0 精华:0 注册:2016/12/5 10:41:00
  发帖心情 Post By:2017/4/6 10:27:00 [只看该作者]

完全不理解,老师,帮助中的相关内容在哪里,我去查查。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/6 10:47:00 [只看该作者]

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("表A").datarows
    For Each s As String In dr.Lines("第二列")
        If ls.contains(s) = False Then
            ls.add(s)
        End If
    Next
Next
Dim str As String = String.Join("|", ls.ToArray)
msgbox(str)

e.form("combobox1").combolist = str


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


加好友 发短信
等级:幼狐 帖子:100 积分:925 威望:0 精华:0 注册:2016/12/5 10:41:00
  发帖心情 Post By:2017/4/6 10:48:00 [只看该作者]

好吧, 我是挺笨的。

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


加好友 发短信
等级:幼狐 帖子:100 积分:925 威望:0 精华:0 注册:2016/12/5 10:41:00
  发帖心情 Post By:2017/4/6 10:58:00 [只看该作者]

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("表A").datarows
    For Each s As String In dr.Lines("第二列")
        If ls.contains(s) = False Then
            ls.add(s)
        End If
    Next
Next
Dim str As String = String.Join("|", ls.ToArray)
msgbox(str)

e.Form.Controls("ComboBox1")combolist = str

 

 

红字的地方看不懂。

 

额,这串代码也没法用。

显示“属性访问必须分配给属性或使用他的值。”


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/6 11:02:00 [只看该作者]


 回到顶部