Foxtable(狐表)用户栏目专家坐堂 → 求代码


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

主题:求代码

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


加好友 发短信
等级:幼狐 帖子:160 积分:1214 威望:0 精华:0 注册:2015/7/1 17:35:00
求代码  发帖心情 Post By:2016/4/28 11:17:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:b@j0`xas9pow57(22c}82y.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:hwqkiz6(%wzs4tztc8o1.png
图片点击可在新窗口打开查看
图一是表,图二是窗口

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/28 11:23:00 [只看该作者]

click事件

 

Dim t As Table = e.form.controls("Table1").Table

t.Filter = "组名 = '" & e.Sender.Text & "'"

For Each r As row in t.Rows

    r.Checked = True

Next


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


加好友 发短信
等级:幼狐 帖子:160 积分:1214 威望:0 精华:0 注册:2015/7/1 17:35:00
  发帖心情 Post By:2016/4/28 11:33:00 [只看该作者]

 单选框每一个Click都要写这段代码?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/28 11:33:00 [只看该作者]

 是

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


加好友 发短信
等级:幼狐 帖子:160 积分:1214 威望:0 精华:0 注册:2015/7/1 17:35:00
  发帖心情 Post By:2016/4/28 11:33:00 [只看该作者]

 直接checkchanged写可以吗

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/28 11:35:00 [只看该作者]

 也可以的。但是你要判断是 e.Sender.Checked 是 true 还是 false

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


加好友 发短信
等级:幼狐 帖子:160 积分:1214 威望:0 精华:0 注册:2015/7/1 17:35:00
  发帖心情 Post By:2016/4/28 11:43:00 [只看该作者]

 好的,感觉还是你的代码比较简洁,谢谢

 回到顶部