项目事件AfterOpenProject加上这一段:
Dim dtb As New DataTableBuilder("ckmx")dtb.AddDef("bh", Gettype(String), 16)dtb.Build()DataTables("ckmx").Fill("Select bh,xm,db,zr From {DA_JBXX} WHERE Left(zr,4) >= 2007","jg",False)
MainTableChanged事件代码可以删除。
另外建议看看:
http://www.foxtable.com/help/topics/0695.htm
http://www.foxtable.com/help/topics/1279.htm