下列代码的where 出错了，请帮我看一下谢谢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下列代码的where 出错了，请帮我看一下谢谢？

共有2144人关注过本帖树形打印复制链接主题：下列代码的where 出错了，请帮我看一下谢谢？

jswjyjf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00

下列代码的where 出错了，请帮我看一下谢谢？ 发帖心情

Post By：2018/2/25 13:21:00 [只看该作者]

dt1 = Date.Today

dt2 = Date.Today

e.Form.Controls("startdate").value=Dt1

e.Form.Controls("enddate").value=Dt2

Filter ="日期 >=#" & dt1 & "# And 日期 <=#" & dt2 & "#" & "and 单据状态='已审核'"

Dim filter As String

Filter ="日期 >='" & dt1 & "' And 日期 <='" & dt2 & "'"

Tables(e.form.Name & "_Table1").Fill("elect 客户编码,客户名称,产品名称 As '款型及款号',产品规格 As '毛纱品种',sum(辅助数量) As '件数',sum(数量) As '重量',单价,sum(运费) As '运费',sum(实收金额) As '厂收金额',sum(金额) As '总金额' from {销售单明细} where '" & filter & "' group by 产品名称,客户编码,客户名称,产品规格,单价","wjhansdata",True)

Dim cmb2 As WinForm.ComboBox

cmb2 = Forms("销售单日报表汇总").Controls("khname")

cmb2.ComboList = DataTables(e.form.Name & "_Table1").SQLgetComboListString("客户名称")

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/26 1:02:00 [只看该作者]

dt1 = Date.Today
dt2 = Date.Today
e.Form.Controls("startdate").value=Dt1
e.Form.Controls("enddate").value=Dt2
Dim Filter ="日期 >=#" & dt1 & "# And 日期 <=#" & dt2 & "#" & " and 单据状态='已审核'"
Tables(e.form.Name & "_Table1").Fill("elect 客户编码,客户名称,产品名称 As '款型及款号',产品规格 As '毛纱品种',sum(辅助数量) As '件数',sum(数量) As '重量',单价,sum(运费) As '运费',sum(实收金额) As '厂收金额',sum(金额) As '总金额' from {销售单明细} where " & filter & " group by 产品名称,客户编码,客户名称,产品规格,单价","wjhansdata",True)
Dim cmb2 As WinForm.ComboBox
cmb2 = Forms("销售单日报表汇总").Controls("khname")
cmb2.ComboList = DataTables(e.form.Name & "_Table1").SQLgetComboListString("客户名称")

下一主题 >> << 上一主题

主题：下列代码的where 出错了，请帮我看一下 谢谢？

主题：下列代码的where 出错了，请帮我看一下谢谢？