主题：用按钮统计数据问题

'全年数据统计

For Each dr As DataRow In DataTables("返利合同").Select("")

    Dim dt1 As DataTable=DataTables("批发及退货报表1")    '定义dt1为批发表

    Dim dt2 As DataTable=DataTables("入库结构报表1")    '定义dt2为入库表

    Dim dt3 As DataTable=DataTables("返利收缴明细表")    '定义dt3为收缴表

    

    '全年应返数量

    Dim YFSL1 As Double = dt1.Compute("sum(数量)", "高开编号 = " & val(dr("财务编号")))  '按高开编号求批发表中数量

    Dim YFSL2 As Double = dt1.Compute("sum(数量)", "返利编号 = " & val(dr("财务编号")))  ' 按返利编号求批发表中数量

    Dim YFSL3 As Double = dt2.Compute("sum(数量)", "高开编号 = " & val(dr("财务编号")))   '按高开编号求入库表中数量

    Dim YFSL4 As Double = dt2.Compute("sum(数量)", "返利编号 = " & val(dr("财务编号")))   '按返利编号求入库表中数量

    dr("全年应返数量") = YFSL1 + YFSL2+ YFSL3+ YFSL4                                      '全年应返数量=批发表中高开编号数量+批发表中返利编号数量+入库表中高开编号数量+入库表中返利编号数量

    

    '全年应返金额

    Dim YFJE1 As Double = dt1.Compute("sum(返利应返金额)", "返利编号 = " & val(dr("财务编号")))   '按高开编号求批发表中金额

    Dim YFJE2 As Double = dt1.Compute("sum(高开应返金额)", "高开编号 = " & val(dr("财务编号")))   '按高开编号求批发表中金额

    Dim YFJE3 As Double = dt2.Compute("sum(返利应返金额)", "返利编号 = " & val(dr("财务编号")))   '按高开编号求批发表中金额

    Dim YFJE4 As Double = dt2.Compute("sum(高开应返金额)", "高开编号 = " & val(dr("财务编号")))   '按高开编号求批发表中金额

    dr("全年应返金额") = YFJE1 + YFJE2+ YFJE3+ YFJE4                                              '全年应返金额=批发表中高开编号金额+批发表中返利编号金额+入库表中高开编号金额+入库表中返利编号金额

    

    

    '全年已返数量

    Dim FHSL As Double = dt3.Compute("sum(数量)", "财务编号 = " & val(dr("财务编号")))        '按财务编号求收缴表中的已返数量

    dr("全年已返数量") = FHSL                                                                     '全年已返数量

    

    '全年已返金额

    Dim FHJE As Double = dt3.Compute("sum(合计金额)", "财务编号 = " & val(dr("财务编号")))         '按财务编号求收缴表中的已返金额

    dr("全年已返金额") = FHJE                                                                      '全年已返金额

    

    '全年未返数量

    dr("全年未返数量")= dr("全年应返数量")-dr("全年已返数量")                                     '全年未返数量=全年应返数量-全年已返数量

    dr("全年未返金额")= dr("全年应返金额")-dr("全年已返金额")                                     '全年未返金额=全年应返金额-全年已返金额

Next