Foxtable(狐表)用户栏目专家坐堂 → 【求助】计时器控制问题


  共有4005人关注过本帖树形打印复制链接

主题:【求助】计时器控制问题

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/12 12:07:00 [显示全部帖子]

您的意思是:第一个间隔显示第一个条件的第一页,下个间隔显示第二个条件的第一页,在下个间隔显示第三个条件的第一页,..循环一遍后,接着显示第一个条件的第二页、第二个条件的第二页、第二个条件的第二页、...这样?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/12 14:48:00 [显示全部帖子]

把按钮改名按顺序设置为:button1/2/3/4/5/6/7/8
Vars("bn")初始值设置为1,分别对应按钮的1~8

按钮“下一页“”(button2):

Dim dt As DataTable = DataTables(e.Form.name &"_Table1")
If dt.LoadPage < dt.TotalPages - 1
    dt.LoadPage = dt.LoadPage + 1
Else
    If Vars("bn") = 8 Then 
        Vars("bn") = 1
    else
        Vars("bn") += 1
    end if
    dt.LoadPage = 0
End If
Dim bn1 As WinForm.Button = e.Form.Controls("Button" & Vars("bn"))
bn1.PerformClick()
dt.Load()
e.Form.Controls("TextBox1").Value = (dt.LoadPage + 1) & "/" & dt.TotalPages


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/12 16:07:00 [显示全部帖子]

计划完成状态看板_Button1_Click

 

With DataTables(e.Form.name &"_Table1")

    .LoadFilter = "[单线别] IS NOT NULL "

    .LoadOver = "工序编号"

End With

 

计划完成状态看板_Button2_Click

 

With DataTables(e.Form.name &"_Table1")

    .LoadFilter = "[单线别] = 'A' "

    .LoadOver = "工序编号"

End With


计划完成状态看板_Button3_Click

……


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/13 9:00:00 [显示全部帖子]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm

计时器有没有触发?代码运行到哪里就停了,检查各种变量的数据是否符合预期

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/13 9:53:00 [显示全部帖子]

在按钮事件里给标签赋值即可

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/13 11:06:00 [显示全部帖子]

屏蔽其中一个代码测试,有没有问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/13 14:18:00 [显示全部帖子]

把afterload加载数据的代码去掉。本身就和按钮的加载有冲突。

或者把afterload加载数据的代码改点击按钮1的代码

或者在退出窗口事件把全局变量重新赋值1
[此贴子已经被作者于2019/11/13 14:19:24编辑过]

 回到顶部