Foxtable(狐表)用户栏目专家坐堂 → 统计表里的百分比


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

主题:统计表里的百分比

美女呀,离线,留言给我吧!
longyanlin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1463 威望:0 精华:0 注册:2016/5/12 14:53:00
统计表里的百分比  发帖心情 Post By:2021/12/20 12:05:00 [显示全部帖子]

各位老师:求一段代码修改,在统计表里自动新增列(划红线的地方增加列,并且计算出百分比=“不良数”/“完成数量”),列名依据引用表里面的提取“线别”,代码如下,求修改:
'e.Form.Controls("ComboBox2").Value = Nothing

Dim b As New CrossTableBuilder("装配汇报",DataTables("装配质量流水账"))
b.HGroups.AddDef("周数") '添加客户列用于水平分组
b.VGroups.AddDef("线别") '添加产品列用于垂直分组
b.Totals.AddDef("完成数量") '添加数量列用于统计
b.Totals.AddDef("不良数") '添加数量列用于统计

Dim t As Table = e.form.controls("Table4").Table
t.datasource = b.BuildDataSource
t.StopRedraw
t.DataTable.GlobalHandler.AfterEdit = True
t.AllowEdit = True
t.AutoSizeCols(3)
t.DefaultRowHeight = 31
t.DataTable.DataCols.Add("_sortkey", Gettype(Decimal))
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.Sort = "周数 DESC"

图片点击可在新窗口打开查看此主题相关图片如下:1111.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/12/20 12:05:43编辑过]

 回到顶部