--
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
\'原AfterOpenProject事件代码
Tables("CLGG.收料表").Cols("材料商").DropForm = "CLGG项目"
Tables("产品资料表").Cols("订料时材料").DropForm = "材料型号项目列表"
Tables("订料表").Cols("型号").DropForm = "订料材料型号项目"
Tables("机台计划表").Cols("速度").DropForm = "速度"
If User.Group = "工程"
Tables("产品资料表").Filter = "[产品名称] Is Null"
Forms("产品资料录入").Open
End If
Tables("订单跟踪表").Filter="[完成状态]= false"
Tables("订单跟踪表").Sort="交货日期"
Tables("外发出货单").Cols("产品名称").DropForm = "产品名称模糊录入"
Tables("出货记录").Cols("产品名称").DropForm = "产品名称模糊录入"
Tables("氧化收货表").Cols("产品名称").DropForm = "氧化产品名称录入项目列表"
Dim drq1 As Date =Date.Today.AddDays(-3) \'指定年份加载计划表今年数据
Dim Filter1 As String
Filter1 = "日期 >= \'" & drq1 & "\'"
DataTables("机台计划表").LoadFilter = Filter1
DataTables("机台计划表").Load()
End If