Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
'库存表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
谢谢了,不过我还要好好琢磨,还有非空行的限制问题。虽然表少,内容还复杂。****