afterload代码：
With e.Form.Strips("状态栏")
.items("操作员").text = "操作员:"& user.name
.items("日期").text = " "& date.Today
End With
e.form.baseform.windowstate = 2
Dim lbl As WinForm.Label
lbl = e.Form.Controls("lable")
lbl.Text = "时 间 : " & Date.Today()
e.Form.TimerEnabled = True
With DataTables("工序生产计划")
.LoadFilter = "" '清除加载条件
.LoadPage = 0 '加载第一页
.LoadTop = 6 '每页6行
.Load()
e.Form.Controls("TextBox").Value = 1 & "/" & .TotalPages
End With
计时器代码：
Dim bn As WinForm.Button = e.Form.Controls("Button7")
If bn.Name = "" Then
bn.PerformClick()
Else
bn.PerformClick()
End If
按钮“下一页”代码（button7）：
With DataTables("工序生产计划")
If .LoadPage < .TotalPages - 1
.LoadPage = .LoadPage + 1
.Load()
e.Form.Controls("TextBox").Value = (.LoadPage + 1) & "/" & .TotalPages
End If
End With
按钮“第一页”代码（button8）：
With DataTables("工序生产计划")
.LoadPage = 0 '加载第一页
.Load()
e.Form.Controls("TextBox").Value = 1 & "/" & .TotalPages
End With
AfterOpenProject项目事件代码：
Forms("看板").Show()
老师，给费费心.
[此贴子已经被作者于2019/11/4 21:30:08编辑过]
加好友 
发短信
Post By：2019/11/4 19:07:00 [只看该作者]
