Foxtable(狐表)用户栏目专家坐堂 → 求助:窗口副本表的复选框的全选与反选问题


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

主题:求助:窗口副本表的复选框的全选与反选问题

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


加好友 发短信
等级:小狐 帖子:324 积分:2504 威望:0 精华:0 注册:2020/3/2 23:15:00
求助:窗口副本表的复选框的全选与反选问题  发帖心情 Post By:2020/8/10 18:11:00 [只看该作者]

窗口:“销售部”;
窗口表:“客户信息表”,设为了副本;
窗口中有个按钮:“全选”
如下图:

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

希望达到的效果:当点击“全选”按钮时,窗口表的所有复选框能都打上勾;
我在按钮“全选”的click事件中写了如下代码:
For Each r As Row In Tables("销售部_客户信息表").rows
        r.checked = True
    Next
发现窗口表的复选框没有打勾,请教老师,这是啥情况?

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/10 20:18:00 [只看该作者]

1、表名不正确
2、有其它代码影响了

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


加好友 发短信
等级:小狐 帖子:324 积分:2504 威望:0 精华:0 注册:2020/3/2 23:15:00
  发帖心情 Post By:2020/8/10 21:32:00 [只看该作者]

蓝老师,这个事情是这样的:
我要实现的效果是:"Button99"默认标题是“全选”,点击"Button99",全选Tables("开发者主控窗口_客户信息表"),并且"Button99"的标题变成“反选”,再点击,就反选Tables("开发者主控窗口_客户信息表"),并且"Button99"的标题变成“全选”

我本来写的代码是:
If e.Form.Controls("Button99").text = "全选" Then
    For Each r As Row In Tables("开发者主控窗口_客户信息表").rows
        r.checked = True
    Next
    e.Form.Controls("Button99").text = "反选"
End If
If e.Form.Controls("Button99").text = "反选" Then
For Each r As Row In Tables("开发者主控窗口_客户信息表").rows
r.checked = False
Next
e.Form.Controls("Button99").text = "全选"
End If

这样一运行的话,就会出现上面的问题。

看了您说的话,后面我把代码改成下面这样:
If e.Form.Controls("Button99").text = "全选" Then
    For Each r As Row In Tables("开发者主控窗口_客户信息表").rows
        r.checked = True
    Next
    e.Form.Controls("Button99").text = "反选"
Else
    For Each r As Row In Tables("开发者主控窗口_客户信息表").rows
        r.checked = False
    Next
    e.Form.Controls("Button99").text = "全选"
End If
运行就ok了,但是造成这个问题的原因到底是啥呢?

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/10 21:54:00 [只看该作者]


 回到顶部