'以下计算已付
e.Form.Controls("TextBox4").Formatstring= "#,###.00"
Dim yfk As Double = DataTables("采购明细").SQLCOMPUTE("SUM(数量*单价)-SUM(付款)")
',"出库日期= #" & y & "#")
e.Form.controls("textbox4").value=yfk
'以下计算平均利润率
Dim ddt As DataTable
Dim aba As New GroupTableBuilder("统计表33",DataTables("出库"))
'b.Filter = "[客户] = 'CS01'" '仅统计客户为CS01的记录
aba.Groups.AddDef("销售人员") '根据产品分组
aba.groups.AddDef("型号") '对型号进行分组
'ba.groups.AddDef("库存") '对供应商进行分组
aba.Totals.AddDef("利润") '对数量进行统计
aba.Totals.AddDef("利润率") '对数量进行统计
aba.Subtotal = True '生成汇总模式
aba.VerticalTotal = True '自动垂直汇总
aba.GrandProportion = True
ddt = aba.Build(False)
Dim tt As Double=ddt.COMPUTE("avg(利润率)")
e.Form.controls("textbox10").value=tt
e.Form.Controls("TextBox10").Formatstring= "0.00%"
问题：1、请看红色字体与图片显示，我想按千分位显示，将利润率按百分比显示。实际效果没有达到，请指点
此主题相关图片如下：无标题.png
加好友 
发短信
Post By：2015/3/16 11:22:00 [只看该作者]
