Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]返回符合条件的行总数


  共有1648人关注过本帖树形打印复制链接

主题：[求助]返回符合条件的行总数
帅哥哟，离线，有人找我吗？
zhaomeng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：241 威望：0 精华：0 注册：2018/6/7 9:47:00 		[求助]返回符合条件的行总数  发帖心情 Post By：2018/6/17 19:06:00 [只看该作者]

比如我想得到昨天所有订单的笔数，如何给rows.count加条件？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/17 19:59:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
zhaomeng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：241 威望：0 精华：0 注册：2018/6/7 9:47:00 		  发帖心情 Post By：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 = ""


这样可以实现了，但是我老觉得不对！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/6/17 23:52:00 [只看该作者]

 

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

msgbox(count)

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询