Foxtable(狐表)用户栏目专家坐堂 → 时间段统计


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

主题:时间段统计

美女呀,离线,留言给我吧!
联友
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
时间段统计  发帖心情 Post By:2013/10/26 12:18:00 [只看该作者]

按钮代码:

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("名称")
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("起始日期")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("结束日期")
e.Form.Controls("Table1").Table.Fill("Select  '" & dtp1.Value & "至" & dtp2.Value & "' As 入库日期,名称,规格,SUM(数量) As 入库数,单位 From {固定资产入库} WHERE 名称= '" & cbx1.Text & "'AND 入库日期 >= #"& dtp1.Value &"# And 入库日期 <= #"& dtp2.Value &"# GROUP BY 名称,规格,单位", "数据库", True)

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20131026121510.png
图片点击可在新窗口打开查看

请指教错在哪?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/10/26 12:24:00 [只看该作者]

下面两个中,肯定有一个名称错了:

 

Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("起始日期")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("结束日期")


 回到顶部
美女呀,离线,留言给我吧!
联友
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2013/10/26 13:15:00 [只看该作者]

谢谢狐爸,找到了

 

 


 回到顶部