- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助：如何利用代码生成当前月每天的经营额 消费人数 人均消费的数值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53663)
-- 发布时间：2014/7/12 19:02:00
-- 求助：如何利用代码生成当前月每天的经营额 消费人数 人均消费的数值
求助：如何利用代码生成当前月每天的经营额 消费人数 人均消费的数值
想实现如下效果：
此主题相关图片如下：123321.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:listview201407051625_201407121901.zip |
月经营窗体现在代码如下：
Dim mon As Integer = Date.Today.Month
Dim days As Integer = Date.DaysInMonth(Date.Today.Year,Date.Today.Month)
Dim s As String
For j As Integer = 1 To days
s + = "\' \' As " & mon & "月" & j & "日,"
Next
s = "Select 订单编号," & s.trim(",") & " from {消费明细}"
Dim dt As DataTable = DataTables("每日经营状况_Table1")
dt.Fill(s,True)
e.Form.Text = Date.Today.Year & "年" & Date.Today.Month & "月经营状况"
此主题相关图片如下：1234.jpg
下面是首页窗体中计算今日相关数据的代码
Dim xxl As WinForm.TopicBar = Forms("主窗体").Controls("TopicBar1")
Dim kg1 As String = "------"
Dim jy As WinForm.TopicPage =xxl.Pages("今日信息")
jy.Links(1).Text = "今日消费金额【" & DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & Date.Today & " 00:00:00# and 消费时间<= #" & Date.Today & " 23:59:59#") & "】元"
jy.Links(0).Text = "今日就餐人数【" & DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & Date.Today & " 00:00:00# and 就餐时间<= #" & Date.Today & " 23:59:59#") & "】人"
jy.Links(2).Text = "今日结账金额【" & DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00# and 结账时间<= #" & Date.Today & " 23:59:59#") & "】人"
Dim A1 As Integer = DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & Date.Today & " 00:00:00# and 消费时间<= #" & Date.Today & " 23:59:59#")
Dim b1 As Integer = DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00# and 结账时间<= #" & Date.Today & " 23:59:59#")
Dim c1 As Integer
c1 = a1-b1
jy.Links(3).Text = "尚未结账金额【" & c1 & "】元"
Dim b12 As Integer = DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00# and 结账时间<= #" & Date.Today & " 23:59:59#")
Dim b11 As Integer = DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & Date.Today & " 00:00:00# and 就餐时间<= #" & Date.Today & " 23:59:59#")
Dim c11 As Double
If b11<> 0 Then
c11 = b12/b11
End If
jy.Links(4).Text = "今日人均消费【" & Format(c11,"f") & "】元"
[此贴子已经被作者于2014-7-12 22:56:14编辑过]
-- 发布时间：2014/7/13 7:30:00
--
试试这段代码：
Dim jb As New SQLJoinTableBuilder("查询表1","消费信息")
jb.AddCols("订单编号","就餐时间")
jb.AddExp("数量","就餐人数")
jb.AddExp("分类","\'就餐人数\'")
Dim jb1 As New SQLJoinTableBuilder("查询表1","消费信息")
jb1.AddTable("消费信息","订单编号","消费明细","订单编号")
jb1.AddCols("{消费信息}.订单编号","就餐时间",True)
jb1.AddExp("数量","Sum(累计消费)")
jb1.AddExp("分类","\'消费总额\'")
Dim jb2 As New SQLJoinTableBuilder("查询表1","消费信息")
jb2.AddTable("消费信息","订单编号","消费明细","订单编号")
jb2.AddCols("{消费信息}.订单编号","就餐时间",True)
jb2.AddExp("数量","Sum(累计消费/就餐人数)")
jb2.AddExp("分类","\'人均消费\'")
jb.Union(jb1,True)
jb.Union(jb2,True)
Dim g As New CrossTableBuilder("统计表2",jb.BuildSql)
g.HGroups.AddDef("订单编号")
g.HGroups.AddDef("分类")
g.VGroups.AddDef("就餐时间", "{0}月")
g.VGroups.AddDef("就餐时间", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("数量", "数量")
g.Build()
MainTable = Tables("统计表2")
-- 发布时间：2014/7/13 10:10:00
-- 回复：（y2287958）试试这段代码：Dim jb As New SQLJ...
感谢y2287958 问题还是没有解决
运行时候生成统计表2 但是列只有订单编号 分类 这两列
此主题相关图片如下：1122.jpg
继续求解
[此贴子已经被作者于2014-7-13 10:13:18编辑过]
-- 发布时间：2014/7/13 10:15:00
--
测试没有问题，你只有对应的消费数据，才会统计的啊。
-- 发布时间：2014/7/13 10:18:00
-- 回复：（有点甜） 测试没有问题，你只有对应的消...
有点甜老师 有数据的哦
此主题相关图片如下：2211.jpg
以上那代码我是直接放在按钮事件和命令窗口测试都是一样的效果
-- 发布时间：2014/7/13 10:24:00
--
数据是否没有保存？
此主题相关图片如下：qq截图20140713102352.png
-- 发布时间：2014/7/13 10:39:00
-- 回复：（有点甜）?数据是否没有保存？?...
保存了的呢 有点甜老师
我的 就餐时间是格式如下：2014-07-12 14:24
代码是在标题右上角的标准按钮1
期待有点填老师指导指导
[此贴子已经被作者于2014-7-13 11:00:25编辑过]
-- 发布时间：2014/7/13 10:45:00
--
代码没有错，你根本就没有数据。
-- 发布时间：2014/7/13 10:49:00
-- 回复：（有点甜）?代码没有错，你根本就没有数据...
我的记录里面有数据的啊 怎么在你那边就没有数据了呢 有点甜老师 这个数据是不是表中的记录 我看了一下对应表中是有记录的呢
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
此主题相关图片如下：3.jpg
[此贴子已经被作者于2014-7-13 10:54:01编辑过]
-- 发布时间：2014/7/13 10:54:00
--
数据问题，自己检测。