Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计当前表


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

主题：统计当前表
帅哥哟，离线，有人找我吗？
yaojun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：573 积分：4653 威望：0 精华：0 注册：2014/7/3 15:28:00 		统计当前表  发帖心情 Post By：2024/6/23 15:52:00 [只看该作者]

请问如下代码是统计后台表的，请问如何改为统计当前表呀：，请大师修改下，谢谢！
Dim b As New CrossTableBuilder("排产计划表",DataTables("生产进度表"))
b.HGroups.AddDef("地址")
b.HGroups.AddDef("设计师")
b.HGroups.AddDef("拆单员")
b.HGroups.AddDef("属性")
b.HGroups.AddDef("生产状态")
b.HGroups.AddDef("开料_开工日期",DateGroupEnum.none)
b.VGroups.AddDef("开料_开工日期",DateGroupEnum.Year,"{0}年")
b.VGroups.AddDef("开料_开工日期","{0}月")
b.VGroups.AddDef("开料_开工日期",DateGroupEnum.day,"{0}日")
b.Totals.AddDef("开料_数量")
b.OrderByTotal = True
b.VerticalTotal= True
b.HorizontalTotal = True
Dim t As Table = e.form.controls("Table5").Table
t.datasource = b.BuildDataSource
t.DataTable.GlobalHandler.AfterEdit = True
t.AllowEdit = True
e.form.controls("Table5").Table.AutoSizeCols(3)

t.DataTable.DataCols.Add("_sortkey", Gettype(Decimal))
t.Sort = "开料_开工日期,地址"
For Each r As Row In t.Rows
    r("_sortkey") = r.Index
Next
t.rows(t.rows.count - 1).Move(0)
t.Sort = "_sortkey"
t.DataTable.AcceptChanges
t.ResumeRedraw
t.Font = New Font("宋体",10.5,FontStyle.Regular)

For Each cl As Col In t.Cols  '整表居中
            cl.TextAlign = TextAlignEnum.Center
  Next
t.DefaultRowHeight = 31
t.Cols("地址").TextAlign = TextAlignEnum.Left
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/23 21:05:00 [只看该作者]

所谓的【当前表】是指什么？是指已经加载的表数据？还是指table筛选后的数据？

如果是后者，加上筛选条件即可
b.HorizontalTotal = True
b.filter = Tables("生产进度表").filter
Dim t As Table = e.form.controls("Table5").Table
t.datasource = b.BuildDataSource
 回到顶部
帅哥哟，离线，有人找我吗？
yaojun
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：573 积分：4653 威望：0 精华：0 注册：2014/7/3 15:28:00 		  发帖心情 Post By：2024/6/24 8:11:00 [只看该作者]

谢谢，这样可以！但是这段代码的结果合计行没有到第一行，而是在第二行，请问这是怎么回事，怎样修改代码：
Dim b As New CrossTableBuilder("排产计划表",DataTables("生产进度表"))
b.HGroups.AddDef("地址")
b.HGroups.AddDef("设计师")
b.HGroups.AddDef("拆单员")
b.HGroups.AddDef("属性")
b.HGroups.AddDef("生产状态")
b.HGroups.AddDef("开料_开工日期",DateGroupEnum.none)
b.VGroups.AddDef("开料_开工日期",DateGroupEnum.Year,"{0}年")
b.VGroups.AddDef("开料_开工日期","{0}月")
b.VGroups.AddDef("开料_开工日期",DateGroupEnum.day,"{0}日")
b.Totals.AddDef("开料_数量")
b.OrderByTotal = True
b.VerticalTotal= True
b.HorizontalTotal = True
b.filter = Tables("生产进度表").filter
Dim t As Table = e.form.controls("Table5").Table
t.datasource = b.BuildDataSource
t.DataTable.GlobalHandler.AfterEdit = True
t.AllowEdit = True
e.form.controls("Table5").Table.AutoSizeCols(3)
t.DefaultRowHeight = 31
t.DataTable.DataCols.Add("_sortkey", Gettype(Decimal))
t.rows(t.rows.count - 1).Move(0)

t.rows(0)("_sortkey") = 0

Dim i As Integer = 1

For Each dr As DataRow In t.DataTable.Select("_sortkey is null","开料_开工日期,地址")

    dr("_sortkey") = i

i+=1
Next

t.Sort = "_sortkey"
t.DataTable.AcceptChanges
t.ResumeRedraw
t.Font = New Font("宋体",10.5,FontStyle.Regular)
For Each cl As Col In t.Cols  '整表居中
            cl.TextAlign = TextAlignEnum.Center
  Next
t.Cols("地址").TextAlign = TextAlignEnum.Left
图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20240624081015.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/24 8:43:00 [只看该作者]

下面2句代码放到最后

t.rows(t.rows.count - 1).Move(0)
t.rows(0)("_sortkey") = 0
 回到顶部
帅哥哟，离线，有人找我吗？
yaojun
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：573 积分：4653 威望：0 精华：0 注册：2014/7/3 15:28:00 		  发帖心情 Post By：2024/6/24 9:00:00 [只看该作者]

放到最后则会显示“不能在排序状态下移动行”，与如下代码效果一样：
Dim b As New CrossTableBuilder("排产计划表",DataTables("生产进度表"))
b.HGroups.AddDef("地址")
b.HGroups.AddDef("设计师")
b.HGroups.AddDef("拆单员")
b.HGroups.AddDef("属性")
b.HGroups.AddDef("生产状态")
b.HGroups.AddDef("开料_开工日期",DateGroupEnum.none)
b.VGroups.AddDef("开料_开工日期",DateGroupEnum.Year,"{0}年")
b.VGroups.AddDef("开料_开工日期","{0}月")
b.VGroups.AddDef("开料_开工日期",DateGroupEnum.day,"{0}日")
b.Totals.AddDef("开料_数量")
b.OrderByTotal = True
b.VerticalTotal= True
b.HorizontalTotal = True
b.filter = Tables("生产进度表").filter
Dim t As Table = e.form.controls("Table5").Table
t.datasource = b.BuildDataSource
t.DataTable.GlobalHandler.AfterEdit = True
t.AllowEdit = True
e.form.controls("Table5").Table.AutoSizeCols(3)
t.DefaultRowHeight = 31
t.DataTable.DataCols.Add("_sortkey", Gettype(Decimal))
t.Sort = "开料_开工日期,地址"
For Each r As Row In t.Rows
    r("_sortkey") = r.Index
Next
t.rows(t.rows.count - 1).Move(0)
t.Sort = "_sortkey"
t.DataTable.AcceptChanges
t.ResumeRedraw
t.Font = New Font("宋体",10.5,FontStyle.Regular)

For Each cl As Col In t.Cols  '整表居中
            cl.TextAlign = TextAlignEnum.Center
  Next

t.Cols("地址").TextAlign = TextAlignEnum.Left
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

把下面代码去掉，如果有_sortkey列，默认就会按_sortkey排序的，不需要多此一举

t.Sort = "_sortkey"
 回到顶部
帅哥哟，离线，有人找我吗？
yaojun
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：573 积分：4653 威望：0 精华：0 注册：2014/7/3 15:28:00 		  发帖心情 Post By：2024/6/24 9:22:00 [只看该作者]

我想让合计行到第一行，去掉这句就实现不了这样的目的，如果不去掉这句就可以实现，只是弹出一个对话框，但是关闭对话框功能得到了实现，如果有办法让这个弹窗不出现也可以


[此贴子已经被作者于2024/6/24 9:23:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yaojun
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：573 积分：4653 威望：0 精华：0 注册：2014/7/3 15:28:00 		  发帖心情 Post By：2024/6/24 9:27:00 [只看该作者]

谢谢蓝老师，我已经找到方法了，代码再换下顺序就可以，另外我想问下，增加一列日期列，怎么显示出来的是数字，而不是日期：
b.HGroups.AddDef("预交日期")
[此贴子已经被作者于2024/6/24 9:30:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

添加水平分组到HGroups的语法是：　

HGroups.AddDef(Name)
HGroups.AddDef(Name, NewName)
HGroups.AddDef(Name, NewName, NewCaption)
HGroups.AddDef(Name, DateGroup)
HGroups.AddDef(Name, DateGroup, NewName)
HGroups.AddDef(Name, DateGroup, NewName, NewCaption)

参数说明

Name:        字符型，指定分组列。
NewName:     字符型，用于给分组列指定一个新的名称，这个名称在统计表中显示。
NewCaption:  字符型，用于给分组列设置标题。
DateGroup：  DateGroupEnum型枚举，如果分组列是日期列，可用此属性指定如何根据日期进行分组，默认按月分组。

DateGroupEnum枚举的可选值：

　

None ：     不分组
Year：      按年分组
Quarter：   按季度分组
Month：     按月分组
Week：      按周分组
Day：       按天分组，月中的某一天。
Hour：      按小时分组
Minute：    按分钟分组 Second：    按秒分组
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询