生成帐页问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

不去触发datacolchanged事件啊

http://www.foxtable.com/help/topics/2218.htm

填充完成以后，重新写代码计算流水账啊

生成太慢，你就不要触犯datacolchanged事件啊，都已经跟你说了，你要做什么效果，填充完数据以后，重新计算。

没看懂，没理解你的意思。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生成帐页.table

你重新计算就行啊。

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

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)

哦，代码写错了

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)

主题：生成帐页问题