以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]后台统计，没有头绪  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45985)
--  作者：红颜
--  发布时间：2014/2/14 16:24:00
--  [求助]后台统计，没有头绪
Dim Cnt As Integer = Tables("打印发票_Table1").DataTable.GetValues("FZ","DY =  False ").Count


Dim s As String
Dim cmd As New SQLCommand
cmd.CommandText = "Select Count(流水号) From {收费明细} Where RQ = #" & Date.Today & "#"
s = cmd.ExecuteScalar
e.Form.Controls("Label10").text = s


第一段代码可用在前台（数据已经加载）

想用类似于第二段的代码从后台统计不重复的流水号，条件是GetValues("流水号","打印 =  ture ")


图片点击可在新窗口打开查看此主题相关图片如下：360截图20140214162936734.jpg
图片点击可在新窗口打开查看

我的流水号根据要求需要重复，但在计算时重复的流水号只计算一次，对流水号进行统计，统计时，排除重复行

如图：统计结果应为 5
[此贴子已经被作者于2014-2-14 16:36:21编辑过]
--  作者：Bin
--  发布时间：2014/2/14 16:26:00
--  
你的问题是什么?   如果是MSSQL数据源 不能用#号 要用单引号
--  作者：红颜
--  发布时间：2014/2/14 16:29:00
--  
我是内部表
--  作者：Bin
--  发布时间：2014/2/14 16:33:00
--  
Dim s As String
Dim cmd As New SQLCommand
cmd.CommandText = "Select Count(流水号) From {收费明细} Where 打印 =  ture"
s = cmd.ExecuteScalar
e.Form.Controls("Label10").text = s
--  作者：红颜
--  发布时间：2014/2/14 16:45:00
--  
Dim s As String
Dim cmd As New SQLCommand
cmd.CommandText = "Select Count(流水号) From {收费明细} Where 打印 =  ture"
s = cmd.ExecuteScalar
e.Form.Controls("Label10").text = s

版主好，此段代码统计出的是全部符合条件的行数，没有排除流水号重复行，代码中也没有排除代码，像GetValues
--  作者：Bin
--  发布时间：2014/2/14 16:48:00
--  
select count(*) from (select Distinct 流水号 From {收费明细} Where 打印 =  ture)
--  作者：lsy
--  发布时间：2014/2/14 17:05:00
--  

sql不是人人都熟悉，更不是人人能精通，狐表的代码，更易懂易用。

不如将简单的Sql查询语句与狐表代码结合起来：

Dim cmd As New SQLCommand
cmd.CommandText = "Select * From {SFMX}"
e.Form.Controls("Label10").Text = cmd.ExecuteReader().GetValues("LSH","LSH Is Not Null And DY = True And RQ = #" & Date.Today & "#").Count

[此贴子已经被作者于2014-2-14 17:11:05编辑过]
--  作者：红颜
--  发布时间：2014/2/14 17:07:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：360截图20140214170510953.jpg
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2014/2/14 17:08:00
--  
后台查询就是为了效率高点,这样效率反而低了.不过不用担心 利用2014的 新功能就没这个烦恼了.
--  作者：红颜
--  发布时间：2014/2/14 17:08:00
--  
代码不正确