主题：请教查找按钮代码

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

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

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

以下是引用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()

Dim t1 As String =e.form.Controls("ComboBox1").value
Dim f As New Filler
f.SourceTable = DataTables("仓库入货明细")
f.SourceCols = "月份,类别,品名,规格与色号,单位,单价"
f.DataTable = DataTables("仓库存在统计表")
f.DataCols = "月份,类别,品名,规格与色号,单位,单价"
f.ExcludeExistValue = True
f.ExcludeNullValue = True
f.Filter="[月份]= '" & t1 &  "'"
f.Fill()

Dim fl As New Filler
fl.SourceTable = DataTables("仓库出货明细")
fl.SourceCols = "月份,类别,品名,规格与色号,单位,单价"
fl.DataTable = DataTables("仓库存在统计表")
fl.DataCols = "月份,类别,品名,规格与色号,单位,单价"
fl.ExcludeExistValue = True
fl.ExcludeNullValue = True
fl.Filter="[月份]= '" & t1 &  "'"
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("月份"))
   
    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()
Next

    加入填充条件?另外因为是填充,所有牵涉到的列数据要填满才能填充.

大师按你要求做了好像有个功能没达到：

每个月的“上月结存_数量”,应该是上个月的“月底结存_数量”,这边好像不行啊，列如九月的“月底结存_数量”应该要放在十月分的“上月结存_数量”，相当我们查十月份的时侯，应该会把九月份的“月底结存_数量”,放到十月分的“上月结存_数量”中进行销售了，一定要按月查找，不能全部都按出来

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

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

blackzhu你好！给你代码进去就出现如下问题了

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

我希望有如下的功能：

每个月的“上月结存_数量”,应该是上个月的“月底结存_数量”,这边好像不行啊，列如九月的“月底结存_数量”应该要放在十月分的“上月结存_数量”，相当我们查十月份的时侯，应该会把九月份的“月底结存_数量”,放到十月分的“上月结存_数量”中进行销售了，一定要按月查找，不能全部都按出来

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

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

那如查改成整数：1/2/3/4/5/6/7/8/9/10/11/12，那可以设置吗？？？

如果不能，而且又想过到那个功能有没有更好建议和想法的

如果按 czy说的要求，我把它改整数，可还不行啊，如下表，

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

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

用你11楼的例子，看看这样行不？  我只改了两处单价，使之与前面的月份的单价相同了而已，另外 月份 改成01、02、....、11、12 。 

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

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

从新上传了，汇总的代码放到最后去了。