主题：请教查找按钮代码

你好怪哟，删除第一行代码后不就是按钮代码了吗？

排除空行，类别和单价都没有数据。

你这样的设计没法帮你了，你更改了月份列的类型，这样的月份表示方式我不知道怎么取的上月的结存。

另外这样的设计，出入库表只能是本年数据，如果这两个表的数据不只一年，怎么统计本月数据？

以下是引用ASD123456789在2010-12-4 12:46:00的发言：

下载信息  [文件大小：332.0 KB  下载次数：0]

点击浏览该文件:管理项目223.table

 

狐爸还是按你的要求按处空的地方，都填上数据了，还是不行啊，求救啊

 

 

类别列有数据吗？

类别列填上数据，代码改成：

DataTables("仓库存在统计表").DataRows.Clear()
Dim f As New Filler
f.SourceTable = DataTables("仓库入货明细")
f.SourceCols = "月份,类别,品名,规格与色号,单位,单价"
f.DataTable = DataTables("仓库存在统计表")
f.DataCols = "月份,类别,品名,规格与色号,单位,单价"
f.ExcludeExistValue = True
f.ExcludeNullValue = True
f.Fill()

Dim fl As New Filler
fl.SourceTable = DataTables("仓库出货明细")
fl.SourceCols = "月份,类别,品名,规格与色号,单位,单价"
fl.DataTable = DataTables("仓库存在统计表")
fl.DataCols = "月份,类别,品名,规格与色号,单位,单价"
fl.ExcludeExistValue = True
fl.ExcludeNullValue = True
fl.Fill()

'以下统计
Dim dt As DataTable = DataTables("仓库入货明细")
Dim dt1 As DataTable = DataTables("仓库出货明细")
For Each dr As DataRow In DataTables("仓库存在统计表").DataRows
    Dim Filter As String = "类别 = '" & dr("类别") & "' And "
    Filter = Filter & "品名 = '" & dr("品名") & "' And "
    Filter = Filter & "规格与色号 = '" & dr("规格与色号") & "' And "
    Filter = Filter  & "单位 = '" & dr("单位") & "' And "
    Filter = Filter & "单价 = " & dr("单价")
    'dr("上月结存_数量") = dt.Compute("Sum(数量)",Filter & " And 月份 < " & dr("月份")) - dt1.Compute("Sum(数量)",Filter & " And 月份 < " & dr("月份"))
    dr("本月_入库_数量") = dt.Compute("Sum(数量)",Filter & " And 月份 = '" & dr("月份") & "'")
    dr("本月_出库_数量") = dt1.Compute("Sum(数量)",Filter & " And 月份 = '" & dr("月份") & "'")
Next
Dim t As Table = Tables("仓库存在统计表")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "上月结存_数量,上月结存_金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()

To 14楼，这样肯定是不行的，因为月份是字符型。

To 15楼，之前我已经说过，月份列为字符型，没办法取到正确值的。

以下是引用mr725在2010-12-4 17:07:00的发言：

用你19楼的例子也可以的：

 

下载信息  [文件大小：18.5 KB  下载次数：0]

点击浏览该文件:管理项目225.rar

呵呵，你让楼主带沟里去，每计算一行都要汇总一次。

以下是引用blackzhu在2010-12-4 18:22:00的发言：

C版怎么不行?我将测试的上来,没有做统计部分,只做了填充部分.

下载信息  [文件大小：332.0 KB  下载次数：1]

点击浏览该文件:管理项目222.table

填充当然可以，我是说统计不行。因为你14楼代码中月份的比较值是数值型。

楼上，你还是自己先考虑清楚吧，不然帮你做再多都是枉然。

我用例子说明你两个自相矛盾的问题。

1、你要求只填充某个月份的数据到统计表。

2、你要求统计表有上月的结存。

问题来了，假如品名为A1的产品9月份有结存，而10月份无入库，亦无出库

此时根据入库表和出库表的进出纪录将数据填充到统计表，因为A1产品在10月份无出入库记录，此时自然取不到A1产品，而统计上月结存是根据品名和月份为条件来进行，统计表中连这个A1产品的纪录都没有，怎么可能统计出结存数？

其实我是比较有耐心的人，但你每次上传文件都更改结构，提问总是让人摸不着头脑，再好的性子都让你磨没了。