以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请帮看看错在哪  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41551)

--  作者:联友
--  发布时间:2013/10/22 12:31:00
--  请帮看看错在哪

Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

e.Form.Controls("Table1").Table.Fill("Select  名称,规格,单位,SUM(数量) AS 数量 From {固定资产入库} where 入库日期 >= \'" & dtp1.Value & "\' AND 入库日期 <= \'" & dtp2.Value & "\' GROUP BY 名称,规格,单位", True)


--  作者:程兴刚
--  发布时间:2013/10/22 12:43:00
--  

这样试一试:

tables(e.Form.name & "_Table1").Fill("Select  名称,规格,单位,SUM(数量) AS 数量 From {固定资产入库} where 入库日期 >= \'" & dtp1.Value & "\' AND 入库日期 <= \'" & dtp2.Value & "\' GROUP BY 名称,规格,单位", True)


--  作者:联友
--  发布时间:2013/10/22 13:03:00
--  
程老师不行
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20131022130233.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2013/10/22 14:07:00
--  
没有指定数据源吧
--  作者:联友
--  发布时间:2013/10/22 15:04:00
--  搞定

代码是

Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

e.Form.Controls("Table1").Table.Fill("Select  名称,规格,SUM(数量) AS 数量,单位 From {固定资产入库}WHERE 入库日期 >= #"& dtp1.Value &"# AND 入库日期 <= #"& dtp2.Value &"# GROUP BY 名称,规格,单位", True)


--  作者:Bin
--  发布时间:2013/10/22 15:06:00
--  
呵呵,内部表的话就应该用#号