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

Dim b As New CrossTableBuilder("统计表1",DataTables("采购送检"))

b.HGroups.AddDef("送检日期",DateGroupEnum.Year,"年") '添加日期列用于水平分组,按年分组

b.HGroups.AddDef("供方代码","供方代码") '添加日期列用于水平分组,按月分组

b.VGroups.AddDef("送检日期","送检日期_{0}月") '添加产品列用于垂直分组

b.Totals.AddDef("金额") '添加数量列用于统计

b.Totals.AddDef("交验数量") '添加数量列用于统计

b.Totals.AddDef("合格数量") '添加数量列用于统计

b.Totals.AddDef("降用数量") '添加数量列用于统计

b.Totals.AddDef("报废数量") '添加数量列用于统计

b.Subtotal = True '生成汇总模式

b.Build '生成统计表

MainTable = Tables("统计表1") '打开生成的统计表

我想在统计表中再增加一列合格率，公式是合格数量/交验数量，

请老师赐教代码，谢谢！

我需要每月都进行合格率的统计

请教老师，我这个列名该如何写，测试总是找不到列名

DataTables("统计表1").DataCols.Add("合格率", Gettype(Double), "[合格数量] / [交验数量] ")

Dim b As New CrossTableBuilder("统计表1",DataTables("采购送检"))

b.HGroups.AddDef("送检日期",DateGroupEnum.Year,"年") '添加日期列用于水平分组,按年分组

b.HGroups.AddDef("供方代码","供方代码") '添加日期列用于水平分组,按月分组

b.VGroups.AddDef("送检日期","{0}月") '添加产品列用于垂直分组

b.Totals.AddDef("金额") '添加数量列用于统计

b.Totals.AddDef("交验数量") '添加数量列用于统计

b.Totals.AddDef("合格数量") '添加数量列用于统计

b.Totals.AddDef("降用数量") '添加数量列用于统计

b.Totals.AddDef("报废数量") '添加数量列用于统计

b.Subtotal = True '生成汇总模式

b.Build '生成统计表

Dim nms() As String = {"1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月"}

For Each nm As String In nms

DataTables("统计表1").DataCols.Add(nm & "_合格率",Gettype(Double), nm & "_合格数量"/ nm & "_ 交验数量" )

Tables("统计表1").Cols(nm & "_合格率").Move(Tables("统计表1").Cols(nm & "_报废数量").Index + 1)

MainTable = Tables("统计表1") '打开生成的统计表

报错从字符串“_合格数量”到类型“Double”的转换无效。

请老师帮忙修改下代码

Dim nms() As String = {"1","2","3","4","5","6","7","8","9","10","11","12"}

For Each nm As String In nms

DataTables("统计表1").DataCols.Add(nm & "月_合格率",Gettype(Double),"合格数量_" & nm/("交验数量_" & nm))

Tables("统计表1").Cols(nm & "月_合格率").Move(Tables("统计表1").Cols("报废数量_" & nm).Index + 1)

现在报错是从字符串“交验数量_1”到类型“Double”的转换无效。

在统计表结构中查看交验数量_1列名没错

麻烦老师帮我看看

主题：合格率