主题：如何根据流水帐例二表得到库存表哪？

如何根据流水帐例二表得到库存表哪？

     贺老师的示例里，如何根据流水帐例二表得到库存表哪？

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

点击浏览该文件:流水账.table

'库存表MainTableChanged事件代码:

if MainTable.Name = "库存表" Then
    dim f As New Filler
    f.SourceTable = DataTables("例子二")
    f.SourceCols = "产品"
    f.DataTable = DataTables("库存表")
    f.DataCols = "产品"
    f.ExcludeExistValue = True
    f.Fill()
    For Each dr As DataRow In DataTables("库存表").DataRows
        Dim dr1 As DataRow = DataTables("例子二").Find("产品 = '" & dr("产品") & "'","日期 Desc")
        dr("日期") = dr1("日期")
        dr("库存") = dr1("库存")
    Next
End If

楼上写错了，应该是项目MainTableChanged事件代码。

谢谢，

项目事件，表事件，不好懂。

多看几次帮助，特别是编程基础和foxtable编程这两章，多实践，自然就明白了。

学会foxtable，终身受用，即使你以后要转C#和vb.net或者其他面向对象的工具，也会容易很多。

任何事情把方法教了，循序渐进慢慢琢磨就可以学好。

'库存表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()
    For Each dr As Datarow In Datatables("库存表").DataRows
        Dim dr1 As Datarow = Datatables("例子二").Find("产品 = '" & dr("产品") & "'","日期 Desc")
        dr("日期") = dr1("日期")
        dr("库存") = dr1("库存")
    Next
End If

谢谢了，不过我还要好好琢磨，还有非空行的限制问题。虽然表少，内容还复杂。****