'库存表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