各位老师：求一段代码修改，在统计表里自动新增列（划红线的地方增加列，并且计算出百分比=“不良数”/“完成数量”），列名依据引用表里面的提取“线别”，代码如下，求修改：'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编辑过]
加好友 
发短信
Post By：2021/12/20 12:05:00 [显示全部帖子]
