Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何对后台筛选后的数据进行汇总统计


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

主题：[求助]如何对后台筛选后的数据进行汇总统计
帅哥哟，离线，有人找我吗？
onlinech
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：105 积分：1193 威望：0 精华：0 注册：2017/6/10 10:52:00 		[求助]如何对后台筛选后的数据进行汇总统计  发帖心情 Post By：2021/9/22 10:53:00 [只看该作者]

有一SQL数据库，利用后台筛选后，要在显示的表中的第一行显示汇总统计" 净重"的总数量，如何实现
Dim dt1,dt2 As New Date
dt1 = e.Form.Controls("DateTimePicker1").text '读取起始日期控件的值
dt2 = e.Form.Controls("DateTimePicker2").text '读取结束日期控件的值
'利用各控件的值,得出筛选条件表达式
Dim Filter,fhdw,shdw,hm,ch As String
fhdw = e.Form.Controls("发货单位").text
shdw = e.Form.Controls("收货单位").text
hm = e.Form.Controls("货名").text
ch = e.Form.Controls("车号").text
If fhdw <> "" And fhdw <>"发货单位" Then
    filter = "发货单位 = '" &  fhdw & "'" & " And "
End If
If shdw <> "" And shdw <> "收货单位" Then
    filter = filter & "收货单位 = '" &  shdw & "'" & " And "
End If
If hm <> "" And hm <> "货名"Then
    filter = filter & "货名 = '" &  hm & "'" & " And "
End If
If ch <> "" And  ch <> "车号" Then
    filter = filter & "车号 = '" &  ch & "'" & " And "
End If
Filter = filter & "更新时间 >= '" & dt1 & "' And 更新时间 <= '" & dt2 & "'"
'后台读取符合条件的记录
Tables("明细查询_Table1").DataSource = DataTables("称重信息")
Tables("明细查询_Table1").Sort = "更新时间 DESC"
DataTables("称重信息").LoadFilter = Filter
‘Dim g As New Subtotalgroup '定义一个新的分组
’g.GroupOn = "*" '分组列为所有列
‘g.TotalOn = "净重" '对净重进行统计
’With Tables("称重信息")
‘    .SubtotalGroups.Clear() '清除原有的分组
’    .SubtotalGroups.Add(g) '加入刚刚定义的分组
‘    .Subtotal() '生成汇总模式
’End With
DataTables("称重信息").Load()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/22 11:04:00 [只看该作者]

Filter = filter & "更新时间 >= '" & dt1 & "' And 更新时间 <= '" & dt2 & "'"
'后台读取符合条件的记录
DataTables("称重信息").LoadFilter = Filter
DataTables("称重信息").Load()
Tables("明细查询_Table1").DataSource = DataTables("称重信息")
Tables("明细查询_Table1").Sort = "更新时间 DESC"
Dim g As New Subtotalgroup '定义一个新的分组
g.GroupOn = "*" '分组列为所有列
g.TotalOn = "净重" '对净重进行统计
With Tables("明细查询_Table1")
    .SubtotalGroups.Clear() '清除原有的分组
    .SubtotalGroups.Add(g) '加入刚刚定义的分组
    .Subtotal() '生成汇总模式
End With
 回到顶部
帅哥哟，离线，有人找我吗？
onlinech
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：105 积分：1193 威望：0 精华：0 注册：2017/6/10 10:52:00 		  发帖心情 Post By：2021/9/22 11:21:00 [只看该作者]

如何将这个带有汇总后的表打印出来，我的代码不能显示汇总的这一行
With Tables("称重信息").PrintInfo
    .Title = "称重数据明细单"
    .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 9
    .FitIntoPage = True
End With
Tables("称重信息").Print(True,False)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/22 11:34:00 [只看该作者]

With Tables("明细查询_Table1").PrintInfo
……
Tables("明细查询_Table1").Print(True,False)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询