- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 找了半天 也不知道出错在哪里 ，麻烦帮助看一下 谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149282)
-- 发布时间：2020/4/28 8:18:00
-- 找了半天 也不知道出错在哪里 ，麻烦帮助看一下 谢谢
Dim Filter As String
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
e.Form.Controls("startdate").value=Dt1
e.Form.Controls("enddate").value=Dt2
Filter ="日期 >=\'" & dt1 & "\' And 日期 <=\'" & dt2 & "\'"
\'Filter ="日期 >=\'" & dt1 & "\' And 日期 <=\'" & dt2 & "\'"
Tables("加工费结算汇总表_Table1").Fill("Sele 加工商名称,sum(数量) as 数量,sum(金额) as 金额 From (sele 加工商名称,数量,金额 from {工序收发明细} Where " & Filter & " union all Sele 加工商名称,数量,金额 from {加工收发明细} Where "& Filter &" ) group by 加工商名称" ,"wjdata",True)
[此贴子已经被作者于2020/4/28 8:20:27编辑过]
-- 发布时间：2020/4/28 9:00:00
--
有什么问题？提示什么错误？
-- 发布时间：2020/4/28 9:18:00
--
fill 这一行 出错
-- 发布时间：2020/4/28 9:35:00
--
建议使用foxtable自身的数据汇总与合并，我的理解是它就是取代复杂SQL查询的高级方案
-- 发布时间：2020/4/28 9:36:00
--
此主题相关图片如下：fff.png
-- 发布时间：2020/4/28 10:14:00
--
这种sql用法我测试没有问题。
看看完整的sql
msgbox("Sele 加工商名称,sum(数量) as 数量,sum(金额) as 金额 From (sele 加工商名称,数量,金额 from {工序收发明细} Where " & Filter & " union all Sele 加工商名称,数量,金额 from {加工收发明细} Where "& Filter &" ) group by 加工商名称")
-- 发布时间：2020/4/28 10:23:00
--
此主题相关图片如下：fdfd.png
-- 发布时间：2020/4/28 10:23:00
--
这样也出错
-- 发布时间：2020/4/28 10:45:00
--
加个as
Sele 加工商名称,sum(数量) as 数量,sum(金额) as 金额 From (sele 加工商名称,数量,金额 from {工序收发明细} Where " & Filter & " union all Sele 加工商名称,数量,金额 from {加工收发明细} Where "& Filter &" ) as a group by 加工商名称
-- 发布时间：2020/4/28 10:49:00
--
可以了 谢谢