主题：库存表总出错？

CZY老师请帮助看一下

'库存表MainTableChanged事件代码:
   
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")
        dr("日期") = dr1("日期")
        dr("库存重量") = dr1("库存重量")
        dr("库存件数") = dr1("库存件数")
        dr("名称") = dr1("名称")
        dr("规格") = dr1("规格")
    Next
End If
CurrentTable.OpenFilterTree

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:库帐.table