Foxtable(狐表)用户栏目专家坐堂 → 如何实现勾选某行的“复选框”该行的姓名自动进入姓名控件?谢谢


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

主题:如何实现勾选某行的“复选框”该行的姓名自动进入姓名控件?谢谢

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


加好友 发短信
等级:六尾狐 帖子:1432 积分:9061 威望:0 精华:0 注册:2009/8/19 8:19:00
如何实现勾选某行的“复选框”该行的姓名自动进入姓名控件?谢谢  发帖心情 Post By:2009/10/19 10:14:00 [只看该作者]

贴子已被锁定

“人事工资管理”表中的“数据查询窗口”,如何实现勾选某行的“复选框”该行的姓名自动进入姓名控件!!!
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:rsgzglxt.rar


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


加好友 发短信
等级:六尾狐 帖子:1432 积分:9061 威望:0 精华:0 注册:2009/8/19 8:19:00
  发帖心情 Post By:2009/10/19 10:49:00 [只看该作者]

版主帮帮忙,谢谢

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


加好友 发短信
等级:一尾狐 帖子:463 积分:3559 威望:0 精华:0 注册:2009/6/26 8:01:00
  发帖心情 Post By:2009/10/19 11:09:00 [只看该作者]

好像应该在 AfterCheckRow事件中设置以下代码,虽然可以达到你的要求,不过有点问题,你可以尝试一下。
Forms("数据查询窗口").Controls("输入查询姓名").value=e.Table.Current("姓名")

新手回复,有错莫笑

问题就是复选框的状态未变,我没看你的其它代码,不知道是不是有冲突
[此贴子已经被作者于2009-10-19 11:09:37编辑过]

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


加好友 发短信
等级:一尾狐 帖子:463 积分:3559 威望:0 精华:0 注册:2009/6/26 8:01:00
  发帖心情 Post By:2009/10/19 11:16:00 [只看该作者]

不过我感觉在这里用复选有点不太合适,如果是对字段去复选还算可以,如果用户不小心选择了两行,有可能会带来不可预知的后果(这种假设是在你复选后,通过按钮再去查询的时候)

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


加好友 发短信
等级:六尾狐 帖子:1432 积分:9061 威望:0 精华:0 注册:2009/8/19 8:19:00
  发帖心情 Post By:2009/10/19 11:24:00 [只看该作者]

问题就是复选框的状态未变
就是这个问题!!!

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


加好友 发短信
等级:六尾狐 帖子:1432 积分:9061 威望:0 精华:0 注册:2009/8/19 8:19:00
  发帖心情 Post By:2009/10/19 11:24:00 [只看该作者]

版主如何改,谢谢

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


加好友 发短信
等级:一尾狐 帖子:463 积分:3559 威望:0 精华:0 注册:2009/6/26 8:01:00
  发帖心情 Post By:2009/10/19 11:35:00 [只看该作者]

放在改变前就行了 BeforeCheckRow

[此贴子已经被作者于2009-10-19 11:35:58编辑过]

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


加好友 发短信
等级:六尾狐 帖子:1432 积分:9061 威望:0 精华:0 注册:2009/8/19 8:19:00
  发帖心情 Post By:2009/10/19 11:41:00 [只看该作者]

放在改变前,选择第一行以外的要报错

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/10/19 11:48:00 [只看该作者]

如果一定要变就这样吧

if e.table.Current.Checked = True Then
    Forms("数据查询窗口").Controls("输入查询姓名").Value = e.Table.Current("姓名")
    e.table.Current.Checked = True
End If

 回到顶部
帅哥哟,离线,有人找我吗?
雨中的泪
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1432 积分:9061 威望:0 精华:0 注册:2009/8/19 8:19:00
  发帖心情 Post By:2009/10/19 13:45:00 [只看该作者]

还是不行!!!版主

 回到顶部
总数 65 1 2 3 4 5 6 7 下一页