直接显示统计结果(继续求助) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

帮助文件-直接显示统计结果的例子没有库存,如果希望象窗口统计表那样计算出库存,代码怎么写?

我在 dt1.Show("统计表1") '显示统计结果

前面增加 Tables("统计表1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("统计表1").DataCols '用表达式列计算库存数据
.Add("库存_数量",Gettype(Integer), "IsNull([进货_数量],0) - ISNULL([销售_数量],0) - ISNULL([退货_数量],0)")
.Add("库存_金额",Gettype(Double), "[库存_数量] /[进货_数量] * [进货_金额]")

报告出错

-----------------------------------------------

第二个查询表:下料统计

实际数量由表达式生成:

With DataTables("下料统计").DataCols '用表达式列计算实际数量
.Add("实际数量",Gettype(Integer), "IsNull([实际用料],0) * {计划}.单位数量")
End With

按上面的代码引用计划表的单位数量,结果报错.

此主题相关图片如下：报错.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:组合统计结果0.table

[此贴子已经被作者于2013-9-27 20:09:45编辑过]

增加的那段代码我删掉了.

代码写在两个地方,项目属性和表属性.

如果增加那段代码,打开项目报错,但是放在表属性,不会报错.

那该怎么做呢?我希望在主界面的查询表有库存数据,不希望象例子那样在窗口表显示.

以下是引用Bin在2013-9-27 9:42:00的发言：
写在ALteropenPROJECT不就好了

这里我有写,

加上 Tables("统计表1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("统计表1").DataCols '用表达式列计算库存数据
.Add("库存_数量",Gettype(Integer), "IsNull([进货_数量],0) - ISNULL([销售_数量],0) - ISNULL([退货_数量],0)")
.Add("库存_金额",Gettype(Double), "[库存_数量] /[进货_数量] * [进货_金额]")

结果报错,统计表都无法生成.所以那几段代码我删掉了.

以下是引用Bin在2013-9-27 9:48:00的发言：
看7楼我给你做的例子,非常简单的.

我之前就是这么做的,你没有没试过啊,打开项目就报错.

此主题相关图片如下：报错1.jpg

此主题相关图片如下：报错2.jpg

好啦,谢谢.

去掉下面这句:

Tables("统计表1").SetColVisibleWidth("型号|90|库存_数量|90|库存_金额|90")

显示所有列.

在表属性DATACOLCHANGED删除

MainTable=Tables("统计表1")

数据变更后将不会跳转到统计表1.

作笔记记下先.

继续求助,第二个查询表:下料统计.

详见一楼.

以下是引用有点甜在2013-9-27 20:30:00的发言：
第二个问题，把代码改成下面这句

With DataTables("下料统计").DataCols '用表达式列计算实际数量

.Add("实际数量",Gettype(Integer))

End With

For Each dr As DataRow In DataTables("下料统计").DataRows

dr("实际数量") = dr("实际用料") * DataTables("计划").Find("批次 = '" & dr("批次") & "'")("单位数量")

哦,这么用:查找.

谢谢!

主题：直接显示统计结果(继续求助)