AfterOpenProject事件代码如下:
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
End If
With DataTables("物料类别")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With
With DataTables("物料管理")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With
With DataTables("仓库管理")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With
With DataTables("入库单")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With
With DataTables("材料出库单")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With
With DataTables("领料单")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With
With DataTables("销售出库单")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With
With DataTables("委外加工单")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With
With DataTables("退货单")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With
With DataTables("移库单")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load()
End With