[求助]sql 语句中如何写当月的条件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]sql 语句中如何写当月的条件？

共有2313人关注过本帖树形打印复制链接主题：[求助]sql 语句中如何写当月的条件？

111yangguojun

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

加好友

发短信

等级：童狐帖子：243 积分：1928 威望：0 精华：0 注册：2013/8/8 23:49:00

[求助]sql 语句中如何写当月的条件？ 发帖心情

Post By：2016/12/10 10:05:00 [只看该作者]

问题一：比如查询当月的销售额，查询表中如何写当月的加载条件？

问题二：如果统计每天的销售额，查询表中如何写每天的条件？

有点蓝

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

加好友

发短信

等级：超级版主帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/12/10 10:25:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/scr/2720.htm

111yangguojun

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

加好友

发短信

等级：童狐帖子：243 积分：1928 威望：0 精华：0 注册：2013/8/8 23:49:00

Post By：2016/12/10 12:13:00 [只看该作者]

Dim y As Integer = 2011 '指定年份
Dim m As Integer = 6 '指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter

这个代码我会用，我现在是想再查询表里直接写入筛选当月的代码，不知道能不能实现？

有点蓝

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

加好友

发短信

等级：超级版主帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/12/10 14:05:00 [只看该作者]

道理一样。试试就知道。

具体上传代码和例子说明

111yangguojun

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

加好友

发短信

等级：童狐帖子：243 积分：1928 威望：0 精华：0 注册：2013/8/8 23:49:00

Post By：2016/12/12 10:37:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

项目上传

帮忙看下如何解决项目内碰到的问题

111yangguojun

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

加好友

发短信

等级：童狐帖子：243 积分：1928 威望：0 精华：0 注册：2013/8/8 23:49:00

Post By：2016/12/12 11:08:00 [只看该作者]

这是个啥问题，怎么样可以取到正确的值

有点蓝

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

加好友

发短信

等级：超级版主帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/12/12 11:17:00 [只看该作者]

这个要代码处理一下

Dim jb As New sqlJoinTableBuilder("查询表1","表A")

jb.AddTable("表A","产品名称","表B","产品名称",JoinModeEnum.Left) '添加统计表

jb.AddCols("{表A}.产品名称","订单金额",True)

jb.AddExp("回款金额","Sum({表B}.回款金额)")

jb.AddExp("运费回款","Sum({表B}.运费回款)")

jb.Distinct = True

Dim dt1 As fxDataSource

dt1 = jb.BuildDataSource()

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table'

Dim t As DataTable = Tables("窗口1_Table1").DataTable

Dim t2 As DataTable = DataTables("表C")

t.StopRedraw

t.DataCols.Add("垫付金额",Gettype(Double))

For Each dr As DataRow In t.DataRows

dr("垫付金额") = t2.Compute("Sum(运费)","产品名称='" & dr("产品名称") & "'")

t.DataCols.Add("未回金额",Gettype(Double),"订单金额 - 回款金额")

t.DataCols.Add("运费未回",Gettype(Double),"垫付金额 - 运费回款")

t.ResumeRedraw

Tables("窗口1_Table1").SetColVisibleWidth("产品名称|102|订单金额|71|回款金额|59|未回金额|59|垫付金额|59|运费回款|59|运费未回|59")

Tables("窗口1_Table1").Filter = "未回金额 > 0 or 运费未回 > 0"

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/12 11:24:00 [只看该作者]

你用这种统计方式本身就有错。多个表组合用这种方式

http://www.foxtable.com/webhelp/scr/2305.htm

Dim bd1 As New GroupTableBuilder("统计表1", DataTables("表A"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("产品名称")
bd1.Totals.AddDef("订单金额","订单金额")
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("表B"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("产品名称")
bd2.Totals.AddDef("回款金额","回款金额")
bd2.Totals.AddDef("运费回款","运费回款")
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("表C"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("产品名称")
bd3.Totals.AddDef("运费","运费")
dt3 = bd3.BuildDataSource()

dt1.Combine("产品名称",dt2,"产品名称")
dt1.Combine("产品名称",dt3,"产品名称")

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table
Tables("窗口1_Table1").SetColVisibleWidth("产品名称|102|订单金额|71|回款金额|59|未回金额|59|垫付金额|59|运费回款|59|运费未回|59")

111yangguojun

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

加好友

发短信

等级：童狐帖子：243 积分：1928 威望：0 精华：0 注册：2013/8/8 23:49:00

Post By：2016/12/12 11:29:00 [只看该作者]

您这个方法我试过了，可以得到结果，但是这样每次都要处理所有的记录，数据量大的时候会不会非常慢了？

有点蓝

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

加好友

发短信

等级：超级版主帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/12/12 11:33:00 [只看该作者]

考虑8楼的方式，合并统计表后再加上表达式列

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

总数 15 1 2 下一页

主题：[求助]sql 语句 中 如何 写 当月的条件？

主题：[求助]sql 语句中如何写当月的条件？