- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 统计表里的百分比 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173860)
-- 发布时间：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编辑过]
-- 发布时间：2021/12/20 13:31:00
--
或者：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |