Foxtable(狐表)用户栏目专家坐堂 → table 的复选框和行号同时选true 之后,就只有复选框


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

主题:table 的复选框和行号同时选true 之后,就只有复选框

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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
table 的复选框和行号同时选true 之后,就只有复选框  发帖心情 Post By:2014/3/5 10:48:00 [只看该作者]


table  的复选框和行号同时选true 之后,就只有复选框,行号就没有显示了,要怎么处理呢?两个都要。。。。


图片点击可在新窗口打开查看此主题相关图片如下:没有显示行号.jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/5 10:52:00 [只看该作者]

两者只能显示一个,你可以增加一个逻辑列来做复选框.

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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2014/4/24 21:54:00 [只看该作者]

谢谢Bin老师,之前忙于其他的代码,就把这个给落下了。现在重新回来研究。

 

我是Querytable类型的查询表,无法编辑,所以没有办法加一逻辑列进行勾选或不勾选。

 

行号的话,又是不固定的,不是identify。

 

暂时没有思路。。。请教各位老师。。。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/24 21:58:00 [只看该作者]

 Querytable类型 的表,也是可以编辑的,你在属性那里设置它允许编辑便可。

 

 其它问题,例子说话


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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2014/4/24 22:00:00 [只看该作者]

哦,看到了。我试一下!!

[此贴子已经被作者于2014-4-24 22:03:53编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2014/4/24 22:09:00 [只看该作者]

 

[此贴子已经被作者于2014-4-24 22:15:33编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/24 22:12:00 [只看该作者]

 在fill()之后,设置一下就行了

 

e.Form.Controls("VIP数据").Table.AllowEdit = true


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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2014/4/24 22:29:00 [只看该作者]

哈,有点甜老师,你的代码有效,可以编辑了。

 

不过我发现了一个简单的方法:

 

在查询表的click事件这样写也可实现:

With Tables("VIP基本信息_VIP基本信息")
     If .current IsNot Nothing Then
     .Current.Checked = not .Current.Checked
    End If
  End With

 

就是有点小难看。哈哈  


图片点击可在新窗口打开查看此主题相关图片如下:复选框与行号并有.png
图片点击可在新窗口打开查看

 


 


 回到顶部