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

If MainTable.Name = "库存表" Then
    Dim f As New Filler
    f.SourceTable = DataTables("流水帐")
    f.SourceCols = "编号"
    f.datatable = DataTables("库存表")
    f.DataCols = "编号"
    f.ExcludeExistValue = True
    f.ExcludeNullValue = True
    f.Fill()
    Dim dt As datatable = DataTables("流水帐")
    For Each dr As DataRow In DataTables("库存表").DataRows
        Dim val As Decimal = dt.Compute("Max(_SortKey)","编号 = '" & dr("编号") & "'")
        Dim dr1 As DataRow = dt.Find("编号 = '" & dr("编号") & "' And _SortKey = " & val,"日期 Desc")
        If dr1 IsNot Nothing Then
            dr("日期") = dr1("日期")
            dr("库存重量") = dr1("库存重量")
            dr("库存件数") = dr1("库存件数")
            dr("名称") = dr1("名称")
            dr("规格") = dr1("规格")
        End If
    Next
End If
CurrentTable.OpenFilterTree

主题：库存表总出错？