| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求教计时器代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142727) |
|
| -- 作者：狐表（小白） -- 发布时间：2019/11/4 19:07:00 -- 求教计时器代码
|
|
| -- 作者：有点蓝 -- 发布时间：2019/11/4 20:37:00 -- 贴出计时器代码 |
|
| -- 作者：狐表（小白） -- 发布时间：2019/11/4 20:54:00 -- Dim bn As WinForm.Button = e.Form.Controls("Button7") If bn.Name = "" Then bn.PerformClick() Else bn.PerformClick() End If 计时器加载到最后一页后刷新数据表或者自动模拟单击“第一页”按钮也行，只要能循环滚动就行，谢谢 [此贴子已经被作者于2019/11/4 20:56:21编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2019/11/4 20:59:00 -- 看不到和页数有关的代码，这个窗口所有代码发上来看看 |
|
| -- 作者：狐表（小白） -- 发布时间：2019/11/4 21:28:00 -- 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编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2019/11/4 22:03:00 -- 按钮“下一页”代码（button7）： With DataTables("工序生产计划") If .LoadPage < .TotalPages - 1 .LoadPage = .LoadPage + 1 else .LoadPage = 0 End If .Load() e.Form.Controls("TextBox").Value = (.LoadPage + 1) & "/" & .TotalPages End With |
|
| -- 作者：狐表（小白） -- 发布时间：2019/11/5 8:01:00 -- 谢谢 |