Foxtable(狐表)用户栏目专家坐堂 → 窗口 数据统计


  共有2207人关注过本帖树形打印复制链接

主题:窗口 数据统计

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 11:14:00 [显示全部帖子]

没看懂你的问题。

 

如果要实时计算汇总数据,编写timertick事件,然后编写统计和显示代码

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 14:53:00 [显示全部帖子]

Dim cmb As WinForm.TextBox = e.form.Controls("TestBox1")
Dim filter As String
filter = "类别 = '计划' and 加工先 = 'W0901'"
Dim Sum2 As Double = DataTables("实际明细").Compute("sum(某列值)", filter)
cmb.text = SUM2

或者

 

Dim cmb As WinForm.TextBox = e.form.Controls("TestBox1")
Dim filter As String
filter = "类别 = '计划' and 加工先 = 'W0901'"
Dim Sum2 As Double = DataTables("实际明细").sqlCompute("sum(机*投入数量/60)", filter)
cmb.text = SUM2

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 16:50:00 [显示全部帖子]

Dim cmb16 As WinForm.TextBox = e.form.Controls("TestBox16")
Dim filter16 As String
filter16 = "类别 = '计划' and 加工先 = 'W0902'"
Dim d1 As Date = e.form.controls("开始日期")
Dim d2 As Date = e.form.controls("结束日期")
If d1 <> Nothing Then
    filter16 &= " And 工作日 >= #" & d1 & "#"
End If
If d2 <> Nothing Then
    filter16 &= " and 工作日 <= #" & d2 & "#"
End If
Dim sum16 As Double = 0
For Each dr As DataRow In DataTables("实际明细").Select(filter16)
    sum16 += dr("机") * dr("投入数量") / 60
Next
cmb16.text = Sum16

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 8:41:00 [显示全部帖子]

改一下

 

Dim cmb16 As WinForm.TextBox = e.form.Controls("TestBox16")
Dim filter16 As String
filter16 = "类别 = '计划' and 加工先 = 'W0902'"
Dim d1 As Date = e.form.controls("开始日期").value
Dim d2 As Date = e.form.controls("结束日期").value

If d1 <> Nothing Then
    filter16 &= " And 工作日 >= #" & d1 & "#"
End If
If d2 <> Nothing Then
    filter16 &= " and 工作日 <= #" & d2 & "#"
End If
Dim sum16 As Double = 0
For Each dr As DataRow In DataTables("实际明细").Select(filter16)
    sum16 += dr("机") * dr("投入数量") / 60
Next
cmb16.text = Sum16


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 9:36:00 [显示全部帖子]

1、单独做一个按钮执行代码有没有问题?

 

2、代码不是放在afterLoad事件的,要到按钮,或者timertick事件的。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 11:30:00 [显示全部帖子]

cmb16.text = Sum16

 

改成

 

cmb16.text = format(Sum16, "0.00")


 回到顶部