Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何分开统计？


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

主题：如何分开统计？
帅哥哟，离线，有人找我吗？
lgz518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		如何分开统计？  发帖心情 Post By：2022/4/23 15:17:00 [显示全部帖子]

如何分开统计？
需求是：表B象表A一样，可以按下面条件分别进行统计，按键事件：
1，按“日期，规格”，
2，按“日期，型号”，
3，按“日期，材质”，
4，按“日期，颜色”，


图片点击可在新窗口打开查看此主题相关图片如下：分开统计.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/4/23 16:36:00 [显示全部帖子]

老师，下面是统计，您说“增加4个临时列，然后遍历所有行把数据拆分到临时列”这个如何实现，请您指教，谢谢？

Dim Filter As String
Dim b As New GroupTableBuilder("统计表1", DataTables("表B"))
b.Groups.AddDef("规格型号")
b.Totals.AddDef("数量", "订购数量") '添加数量列用于统计
b.Filter = Filter 
Tables("分开统计_Table1").DataSource = b.BuildDataSource()
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/4/23 22:56:00 [显示全部帖子]

DataTables("表B").DataCols.Add("规格", GetType(String))
DataTables("表B").DataCols.Add("型号", GetType(String))
DataTables("表B").DataCols.Add("材质", GetType(String))
DataTables("表B").DataCols.Add("颜色", GetType(String))

'Dim s As String = Tables("表B").current("规格型号")
'Dim ssr() As String = s.split("/")
'    For i As Integer = 0 To ssr.length - 1
'        e.DataRow(cs(i)) = ssr(i)
'    Next
红字代码报错
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/4/24 16:50:00 [显示全部帖子]

Dim s As String = Tables("表B").current("规格型号")
Dim ssr() As String = s.split("/")
For i As Integer = 0 To ssr.length - 1
    
    Tables("表B").current("规格") = ssr(i)
    Tables("表B").current("型号") = ssr(i)
    Tables("表B").current("材质") = ssr(i)
    Tables("表B").current("颜色") = ssr(i)

Next

单击事件，上面执行一行，没有批量，如何实现批量？
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/4/24 17:44:00 [显示全部帖子]

Dim s As String = Tables("表B").current("规格型号")
Dim ssr() As String = s.split("/")

'With DataTables("订单")
'    Tables("表B").current("规格") = ssr(0)
'    Tables("表B").current("型号") = ssr(1)
'    Tables("表B").current("材质") = ssr(2)
'    Tables("表B").current("颜色") = ssr(3)
'End With


'Dim Sum As Integer
For Each dr As DataRow In DataTables("表B").DataRows
    Tables("表B").current("规格") = ssr(0)
    Tables("表B").current("型号") = ssr(1)
    Tables("表B").current("材质") = ssr(2)
    Tables("表B").current("颜色") = ssr(3)
Next

单击事件，上面执行一行，没有批量，如何实现批量？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询