以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何统计某列不重复的行数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45939)

--  作者:红颜
--  发布时间:2014/2/13 17:30:00
--  [求助]如何统计某列不重复的行数
Dim min As Integer = Tables("打印发票_Table1").Compute("Count(FZ)","DY =  False ")

该代码将统计所有的符合条件的行,并不能排除重复的行
                       FZ
脑血流 2
脑血流 2
疾病鉴定                3
大生化 4
电解质         

如上:FZ存在重复的行时,要求只统计1次
[此贴子已经被作者于2014-2-13 17:35:37编辑过]

--  作者:狐狸爸爸
--  发布时间:2014/2/13 17:35:00
--  
Dim cnt AS integer = DatTables("打印发票_Table1").GetValue("FZ","DY =  False ").Count
--  作者:红颜
--  发布时间:2014/2/13 17:41:00
--  
老总,代码不对啊,窗口表, DatTables错误,count.后完了?
[此贴子已经被作者于2014-2-13 17:43:24编辑过]

--  作者:狐狸爸爸
--  发布时间:2014/2/13 17:43:00
--  
Dim cnt As Integer = Tables("打印发票_Table1").DataTable.GetValues("FZ","DY =  False ").Count
--  作者:红颜
--  发布时间:2014/2/13 17:46:00
--  
谢谢老总,正确,简单,享受了