设计筛选行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 设计筛选行

共有2649人关注过本帖树形打印复制链接主题：设计筛选行

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

设计筛选行

Post By：2016/9/30 19:29:00 [只看该作者]

问问如果设计一个按钮筛选不重复怎么写代码啊？感谢感谢

比如 Table1绑定了表A

然后表A 姓名有很多王二小张小花李小胖王二小等等很多重复的

然后点击按钮后 Table1 就显示姓名列不重复的，而且是最后一行。

感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:筛选.table

此主题相关图片如下：qq截图20160930200201.jpg

[此贴子已经被作者于2016/9/30 20:02:57编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/10/1 8:03:00 [只看该作者]

e.Form.Controls("Table1").Select()
e.Form.Controls("Table1").Table.Select(0,0)
Syscmd.Filter.HideSameValues()

yangwenghd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/10/1 8:26:00 [只看该作者]

谢谢筛选出来了，只是可以是被筛选的是最后一行吗（如果有相同的），如果没有相同的就显示该行。

比如有张山，李四，李四就显示张山，和最后一行的李四，感谢感谢，

同时第二列不等于0的不显示，感谢感谢图片点击可在新窗口打开查看

[此贴子已经被作者于2016/10/1 8:55:11编辑过]

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2016/10/1 8:59:00 [只看该作者]

1、第二列改为整数列

2、代码：

If DataTables("表A").DataCols.Contains("tmp") = False Then
    DataTables("表A").DataCols.Add("tmp",Gettype(String),1)
    Tables("表A").cols("tmp").Visible = False
    Tables("窗口1_Table1").cols("tmp").Visible = False
End If
Dim drs As List(of DataRow) = DataTables("表A").Select("","姓名,第二列 desc")
drs(0)("tmp") = "0"
For i As Integer = 1 To drs.count - 1
    If drs(i)("姓名") = drs(i-1)("姓名") Then
        drs(i)("tmp") = "1"
    Else
        drs(i)("tmp") = "0"
    End If
Next
Tables("窗口1_Table1").Filter = "tmp = '0'"

我基本上不认为编程是一个技术活，因为只要基础通了，一切都通了，A、B、C这样搭建起来即可。

还有别人给你写的代码，你要去理解，将其消化为自己的知识，这样别人对你的帮助，才有意义。

[此贴子已经被作者于2016/10/1 9:05:35编辑过]