Foxtable(狐表)用户栏目专家坐堂 → 指定默认只对某列筛选重复值


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

主题:指定默认只对某列筛选重复值

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
指定默认只对某列筛选重复值  发帖心情 Post By:2017/3/30 4:44:00 [只看该作者]

Syscmd.Filter.ShowSameValues()

老师,上面这个筛选重复值的代码,我如果想指定默认只对A列筛选重复值,代码该怎么改,谢谢!

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/30 9:04:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:142 积分:1115 威望:0 精华:0 注册:2017/4/21 9:36:00
  发帖心情 Post By:2017/10/30 16:07:00 [只看该作者]

那个请问下,怎么把这个筛选出来的值付给某一个控件,就是怎么提取出来

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/30 16:27:00 [只看该作者]

 筛选后,读取表格的值

 

Dim t As Table = Tables("表A")
Dim ls As new List(Of String)
For Each r As Row In t.rows
    If ls.Contains(r("第三列")) = False Then
        ls.add(r("第三列"))
    End If
Next

For Each s As String In ls
    msgbox(s)
Next


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


加好友 发短信
等级:幼狐 帖子:142 积分:1115 威望:0 精华:0 注册:2017/4/21 9:36:00
  发帖心情 Post By:2017/10/30 16:32:00 [只看该作者]

那个,这个数据是在关联表里的,这样不能直接用table类型吧

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


加好友 发短信
等级:幼狐 帖子:142 积分:1115 威望:0 精华:0 注册:2017/4/21 9:36:00
  发帖心情 Post By:2017/10/30 16:36:00 [只看该作者]

不是不是,弄错了,代码没问题,但是为什么显示出来的是(集合)...

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/30 17:00:00 [只看该作者]

以下是引用Rhonin在2017/10/30 16:32:00的发言:
那个,这个数据是在关联表里的,这样不能直接用table类型吧

 

请具体说明要显示到哪里,怎么显示?截图或者实例说明。


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


加好友 发短信
等级:幼狐 帖子:142 积分:1115 威望:0 精华:0 注册:2017/4/21 9:36:00
  发帖心情 Post By:2017/10/30 17:31:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
如下图,在该窗口的副本表2中我需要把到站这一列的数据(图3)填入到页面集合2(填写车辆信息并完成)中的textbox7中,效果大体是济南、青岛、上海等等,但是具体显示出来的效果是(集合)(图2
图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/30 17:46:00 [只看该作者]

Dim t As Table = Tables("表A")
Dim ls As new List(Of String)
For Each r As Row In t.rows
    If ls.Contains(r("第三列")) = False Then
        ls.add(r("第三列"))
    End If
Next
Dim s As String = String.Join("|", ls.ToArray)
msgbox(s)

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


加好友 发短信
等级:幼狐 帖子:142 积分:1115 威望:0 精华:0 注册:2017/4/21 9:36:00
  发帖心情 Post By:2017/10/30 18:01:00 [只看该作者]

多谢大佬甜

 回到顶部
总数 11 1 2 下一页