主题：请教查找按钮代码

请注意填充需要加上一个填充条件.这个条件就是月份等于下拉框的月份,另外一个需要注意的就是,所有的填充的列,里面的数据不能少,少就不会填充的.

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

 

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

 

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

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

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

C版，不能认正了月份做统计吗？比如说输入十月份就将十月份的这个类别统计呀。

我不知道你的结存数十什么概念,我是将入库 - 出库 =结存 :

 

 

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 月份 = '"  & t1 & "'")
    dr("本月_出库_数量") = dt1.Compute("Sum(数量)",Filter & " And 月份 = '" & T1 & "'")
dr("上月结存_数量")=  dr("本月_入库_数量") - 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

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

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

 

 

你选择5月份试试,是不是这样?

就如blackzhu给的用月查找挺好的，但无法达到功能，“上月结存”是只上月留下的“月底结存”就是上月没有出货的产品，留到这个月

 

  那你有没有试试月份列<>下拉框的值呢?

你这个上月结存我不知道怎么帮你测试?不太懂.

你这个改个思路设计吗.做一个流水帐.一进一出不就是有结存了吗.

看老六的高效率流水账