以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  汇总模式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35216)
--  作者：FB学生
--  发布时间：2013/6/26 16:03:00
--  汇总模式

项目一打开表A就成汇总模式怎么回事呢
--  作者：狐狸爸爸
--  发布时间：2013/6/26 16:05:00
--  

检查afteropenproject事件中的代码。

 

检查不出来，就将文件发上来，我们帮你检查一下。
--  作者：FB学生
--  发布时间：2013/6/26 16:57:00
--  

文件是外部数据表，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("产能统计")