专家坐堂-数据格式问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 数据格式问题

\'以下计算已付

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