以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  统计表数值除法计算,  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139086)

--  作者:by0521
--  发布时间:2019/8/5 16:36:00
--  统计表数值除法计算,
依据任务单号,汇总合格米数,
Dim g6 As New GroupTableBuilder("统计表6", DataTables("总表"))
g6.Groups.AddDef("生产任务单号")
g6.Totals.AddDef("合格米数")
g6.VerticalTotal = True
g6.filter = filter
Tables("查询统计表_Table6").DataSource = g6.BuildDataSource
得出结果,
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190805162839.png
图片点击可在新窗口打开查看
想实现这个样子,如图。

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190805163358.png
图片点击可在新窗口打开查看
合格米数做个除法,而且被除的数不在数据表内。这样得出一个新的值。
能否实现?

--  作者:有点蓝
--  发布时间:2019/8/5 17:09:00
--  
最后加上代码

DataTables("查询统计表_Table6").DataCols.Add("实际米数",Gettype(Double), "合格米数/4")

--  作者:by0521
--  发布时间:2019/8/6 9:52:00
--  
DataTables("查询统计表_Table6").DataCols.Add("实际米数",Gettype(Double), "合格米数/4")
这里直接是数字,可以计算的。那如果是变量呢。
dim f as integer =4,
DataTables("查询统计表_Table6").DataCols.Add("实际米数",Gettype(Double), "合格米数/f")
这样就提示报错,找不到列f
这个怎么修改呢。

--  作者:2900819580
--  发布时间:2019/8/6 9:56:00
--  
DataTables("查询统计表_Table6").DataCols.Add("实际米数",Gettype(Double), "合格米数/" & f)
--  作者:有点蓝
--  发布时间:2019/8/6 10:15:00
--  
参考:http://www.foxtable.com/webhelp/topics/0221.htm
--  作者:by0521
--  发布时间:2019/8/6 10:53:00
--  
好了。谢谢!