文件是外部数据表，afteropenproject中的这些事件请帮我看看：汇总模式的是订单汇总表
Output.Logs.Clear() '清除日志
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
Output.Logs("登录日志").Add(User.Name & ":" & Date.Now )
Output.Logs("登录日志").Save("c:\log.txt",True)
Output.Logs("登录日志").Clear
With FileWatcher
.Path = "\\Cangku\林泰系统"
.Filter = "林泰系统.mdb"
.Delay = 100
.Enabled = True
End With
Tables("订单汇总").Cols("产品编号").DropForm = "料号" '辅助输入产品编号
Tables("成品库存").Cols("产品编号").DropForm = "料号" '辅助输入产品编号
Tables("订单汇总").OpenView("订单汇总")
Tables("成品库存").OpenView("成品库存")
Tables("成品库存.成品入库").OpenView("成品库存")
Tables("成品库存.成品出库").OpenView("成品库存")
Tables("辅料库存").OpenView("辅料库存")
Tables("辅料库存.辅料入库").OpenView("辅料库存")
Tables("辅料库存.辅料出库").OpenView("辅料库存")
Tables("商标库存").OpenView("商标库存")
Tables("商标库存.商标入库").OpenView("商标库存")
Tables("商标库存.商标出库").OpenView("商标库存")
Tables("商标库存.回收入库").OpenView("商标库存")
Tables("纸张库存").OpenView("纸张库存")
Tables("纸张库存.纸张入库").OpenView("纸张库存")
Tables("纸张库存.纸张出库").OpenView("纸张库存")
Tables("半成品库存").OpenView("纸张库存")
Tables("半成品库存.半成品入库").OpenView("半成品库存")
Tables("半成品库存.半成品出库").OpenView("半成品库存")
Tables("产能统计.商标工单").OpenView("产能统计")
Tables("产能统计.胶印工单").OpenView("产能统计")
加好友 
发短信
Post By：2013/6/26 16:03:00 [只看该作者]
