主题：生成帐页问题

 你重新计算就行啊。

说了那么多，都白说了，哎

Tables("物料帐页").OpenView("1")
Dim t1 As Integer =  Environment.TickCount
e.Form.StopRedraw
SystemReady = False
DataTables("物料帐页").Datarows.Clear()
Dim f As New Filler
f.SourceTable = DataTables("物料明细") '指定数据来源
f.SourceCols = "物料分类,物料名称,型号规格,日期,月,日,单位,入仓_数量,入仓_金额,出仓_数量,出仓_金额" '指定数据来源列
f.DataTable = DataTables("物料帐页") '指定数据接收表
f.DataCols = "物料分类,物料名称,型号规格,日期,月,日,单位,入仓_数量,入仓_金额,出仓_数量,出仓_金额" '指定数据接收列
f.Distinct = False
f.Fill() '填充数据
SystemReady = True
'触发列计算库存_数量
e.Form.ResumeRedraw

Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("物料帐页").Select("", "物料,日期")
    If pdr Is Nothing OrElse pdr("物料") <> dr("物料") Then
        pdr = dr
        dr("库存_数量") = dr("入仓_数量") - dr("出仓_数量")
        dr("库存_金额") = dr("入仓_金额") - dr("出仓_金额")
    Else
        dr("库存_数量") = pdr("库存_数量") + dr("入仓_数量") - dr("出仓_数量")
        dr("库存_金额") = pdr("库存_金额") + dr("入仓_金额") - dr("出仓_金额")
    End If
Next

Dim t2 As Integer =  Environment.TickCount
MessageBox.Show("耗时 " & (t2-t1)/1000)

谢谢有点甜，你的代码与我的代码得到的结果有出入，图1是你给的代码的结果，图2是原代码的结果，对比手套 棉纱物料的库存_数量和库存_金额，我们仓管员要的是图2的效果。

图1 

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

图2

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

哦，代码写错了

Tables("物料帐页").OpenView("1")
Dim t1 As Integer =  Environment.TickCount
e.Form.StopRedraw
SystemReady = False
DataTables("物料帐页").Datarows.Clear()
Dim f As New Filler
f.SourceTable = DataTables("物料明细") '指定数据来源
f.SourceCols = "物料分类,物料名称,型号规格,日期,月,日,单位,入仓_数量,入仓_金额,出仓_数量,出仓_金额" '指定数据来源列
f.DataTable = DataTables("物料帐页") '指定数据接收表
f.DataCols = "物料分类,物料名称,型号规格,日期,月,日,单位,入仓_数量,入仓_金额,出仓_数量,出仓_金额" '指定数据接收列
f.Distinct = False
f.Fill() '填充数据
SystemReady = True
'触发列计算库存_数量
e.Form.ResumeRedraw

Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("物料帐页").Select("", "物料,日期")
    If pdr Is Nothing OrElse pdr("物料") <> dr("物料") Then
        dr("库存_数量") = dr("入仓_数量") - dr("出仓_数量")
        dr("库存_金额") = dr("入仓_金额") - dr("出仓_金额")
    Else
        dr("库存_数量") = pdr("库存_数量") + dr("入仓_数量") - dr("出仓_数量")
        dr("库存_金额") = pdr("库存_金额") + dr("入仓_金额") - dr("出仓_金额")
    End If
    pdr = dr 
Next

Dim t2 As Integer =  Environment.TickCount
MessageBox.Show("耗时 " & (t2-t1)/1000)