| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 字符串 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108884) |
| -- 作者：cqli -- 发布时间：2017/10/31 14:17:00 -- 字符串 表中的A列填写信息如下： A列第一行 A,B,C A列第二行 A,D,E A列第三行 B,G,D ..... 如何提取A列的不重复值生产下拉选项 |
| -- 作者：有点蓝 -- 发布时间：2017/10/31 16:19:00 -- 这种比较麻烦，只能循环所有行逐个判断，然后添加不重复的项目到集合中，再转换为下拉列表 |
| -- 作者：有点甜 -- 发布时间：2017/10/31 17:39:00 -- Dim ls As new List(of String) For Each r As Row In Tables("表A").rows For Each s As String In r("第一列").split(",") If ls.Contains(s) = False Then ls.add(s) End If Next Next msgbox(String.Join("|", ls.ToArray)) |
| -- 作者：cqli -- 发布时间：2017/11/1 10:03:00 -- 你好！ 上面代码生成的下拉选项加载的数据都一样，帮忙改下 Dim drs As List(Of DataRow) = DataTables("表A").SQLSelect("产品 Like \'%a%\'") For Each dr As DataRow In drs DataTables("表A").loadfilter= "产品 Like \'%a%\'" DataTables("表A").load Next
|
| -- 作者：有点甜 -- 发布时间：2017/11/1 10:47:00 -- 没看懂你4楼表达的意思，做个例子说明你要做什么 |
| -- 作者：cqli -- 发布时间：2017/11/1 11:33:00 -- 从datatable里加载符合下拉选项的行 |
| -- 作者：有点甜 -- 发布时间：2017/11/1 12:18:00 -- Dim a As String = Forms("窗口1").Controls("ComboBox1").Text DataTables("表A").loadFilter = "产品 Like \'%" & a & "%\'" DataTables("表A").load
|