Foxtable(狐表)用户栏目专家坐堂 → [求助]按单号一次性勾选上千条数据,程序假死退出


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

主题:[求助]按单号一次性勾选上千条数据,程序假死退出

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


加好友 发短信
等级:一尾狐 帖子:448 积分:3436 威望:0 精华:0 注册:2015/3/4 15:55:00
[求助]按单号一次性勾选上千条数据,程序假死退出  发帖心情 Post By:2023/3/5 20:54:00 [只看该作者]

[求助]按单号一次性勾选上千条数据,程序假死退出?请问有什么方式解决?
复选代码如下


For Each r As Row In e.Table.Rows
    If r("单号") = e.Row("单号") Then
        r.Checked = e.Row.Checked
        
    End If
Next

e.Form.Controls("TextBox1").Value = Tables("查询打印_Table1").GetCheckedRows().Count

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/5 21:01:00 [只看该作者]

下面事件有没有代码?

BeforeCheckRow

修改行复选框状态前执行。

AfterCheckRow修改行复选框状态后执行。

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


加好友 发短信
等级:一尾狐 帖子:448 积分:3436 威望:0 精华:0 注册:2015/3/4 15:55:00
回复:(有点蓝)下面事件有没有代码?BeforeCheckRow...  发帖心情 Post By:2023/3/5 21:47:00 [只看该作者]

以上都是在AfterCheckRow的事件代码,勾选太多就挂了,4-500行的时候没有问题

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/5 22:14:00 [只看该作者]

1楼代码都放在AfterCheckRow的事件?表事件一般不应该使用循环,想想:循环里每勾选一行,就会触发这个事件,1000行就触发1000次,事件里又循环,然后又触发,就是1000*1000次,第二次循环里还会继续触发.......

具体要做什么功能?

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


加好友 发短信
等级:一尾狐 帖子:448 积分:3436 威望:0 精华:0 注册:2015/3/4 15:55:00
回复:(有点蓝)1楼代码都放在AfterCheckRow的事件?...  发帖心情 Post By:2023/3/5 22:22:00 [只看该作者]

就是要实现同单号一次性勾选,
比如1000行或更多行都是同一单号,那我勾选一行就需要帮我勾选全部同单号的1000行,就是要实现这个功能。

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/5 22:46:00 [只看该作者]

SystemReady = False
For Each r As Row In e.Table.Rows
    If r("单号") = e.Row("单号") Then
        r.Checked = e.Row.Checked
        
    End If
Next
SystemReady = True

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


加好友 发短信
等级:一尾狐 帖子:448 积分:3436 威望:0 精华:0 注册:2015/3/4 15:55:00
  发帖心情 Post By:2023/3/5 23:01:00 [只看该作者]

谢谢!已经可以了,非常感谢!

 回到顶部