狐爸爸:下面的代码红色那句不要就会出错,但是要了就会在主界面中看到统计表,为了不显示统计表1,我该怎么修改呢?
'----------以下是结账运算代码
Dim Date1,Date2 As Date
Date1 = Tables("月末结账").Current("结账期_起")
Date2 = Tables("月末结账").Current("结账期_讫")
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("采购入库单明细表"))
Dim dt1 As fxDataSource
bd1.Filter = "[日期] >= # " & Date1 & "# And [日期]<= # " & Date2 & "#"
bd1.Groups.AddDef("品号") '根据品号分组
bd1.Totals.AddDef("数量","采购_数量") '对数量进行统计
bd1.Totals.AddDef("金额","采购_金额") '对金额进行统计
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("生产入库单明细"))
Dim dt2 As fxDataSource
bd2.Filter = "[日期] >= #" & Date1 & "# And [日期]<= # " & Date2 & "#"
bd2.Groups.AddDef("品号") '根据品号分组
bd2.Totals.AddDef("数量","生产入库_数量") '对数量进行统计
bd2.Totals.AddDef("金额","生产入库_金额") '对金额进行统计
dt2 = bd2.BuildDataSource()
dt1.Combine("品号",dt2,"品号") '将生产入库统计数据组合到采购入库统计数据
dt1.show("统计表1")
With DataTables("统计表1").DataCols '用表达式列计算库存数据
.Add("库存_数量",Gettype(Double), "IsNull([采购_数量],0) + ISNULL([生产入库_数量],0)")
.Add("库存_金额",Gettype(Double), "IsNull([采购_金额],0) + ISNULL([生产入库_金额],0)")
End With
'将计算数据填充到仓库总账中
Tables("仓库总账").Filter = "[期间] = '" & Date1.Month & "'"
For Each r1 As DataRow In DataTables("统计表1").DataRows
For Each r2 As Row In Tables("仓库总账").Rows
If r1("品号") = r2("品号") Then
r2("入库数量") = r1("库存_数量")
r2("入库金额") = r1("库存_金额")
End If
Next
Next
Tables("仓库总账").DataTable.save