主题：库存表总出错？

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

库存表MainTableChanged事件代码:
与类别列没关系吧？

谢谢了,  我还要改一下结构，以后还要请教。

czy版主，用2011-01-05版如何用跨表更新？

还没有理解哪.

错道没错，就是不能立刻刷新，需要表与表切换才能刷新。不然以为数据出错了，只好表与表切换来刷新数据。