以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]返回符合条件的行总数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120506)
--  作者：zhaomeng
--  发布时间：2018/6/17 19:06:00
--  [求助]返回符合条件的行总数
比如我想得到昨天所有订单的笔数，如何给rows.count加条件？
--  作者：有点甜
--  发布时间：2018/6/17 19:59:00
--  

参考

 

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

 
--  作者：zhaomeng
--  发布时间：2018/6/17 21:31:00
--  

Dim TD = Date.Today

Dim Y1 As Integer = TD.year

Dim M1 As String = Format(TD.month,"00" )

Dim D1 As Integer = format(TD.day , "00" )

Dim Count As Integer

\'Count = DataTables("采购单").Compute("Count(单据编号)","日期 = " &  Date.Today  )

Tables("采购单").Filter = "日期 = #" & Date.Today & "#"  

Count = Tables("采购单").Rows.count

Dim BH As String = "PO" & Y1 & M1 & D1 & Format( count + 1 ,"00" )

Dim dr As DataRow

MessageBox.show(BH)

e.DataRow("单据编号") = BH

e.DataRow("日期")  = Date.today


Tables("采购单").Filter = ""


这样可以实现了，但是我老觉得不对！
--  作者：有点甜
--  发布时间：2018/6/17 23:52:00
--  

 

Count = DataTables("采购单").Compute("Count(单据编号)", "日期 = #" &  Date.Today & "#")

msgbox(count)