以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]取得排除重值后的行数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110511)
--  作者：沪上游客
--  发布时间：2017/12/4 17:05:00
--  [求助]取得排除重值后的行数
老师您好！
我想在筛选窗口显示排除重值后的行数，用Label(标签)控件。请老师指教代码怎么写？
感谢！
--  作者：沪上游客
--  发布时间：2017/12/4 17:07:00
--  
也就是说计算重复值的行数是1
--  作者：有点甜
--  发布时间：2017/12/4 17:25:00
--  

如代码

 

Dim t as table = tables("表A")
Dim n As Integer = t.DataTable.GetValues("第一列", t.filter).count
msgbox(n)

 

http://www.foxtable.com/webhelp/scr/2747.htm