[浏览完整版]
标题：如何实现勾选某行的“复选框”该行的姓名自动进入姓名控件？谢谢
1楼
雨中的泪 发表于：2009/10/19 10:14:00“人事工资管理”表中的“数据查询窗口”，如何实现勾选某行的“复选框”该行的姓名自动进入姓名控件！！！
此主题相关图片如下：1.jpg
此主题相关图片如下：1.jpg| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rsgzglxt.rar |
2楼
雨中的泪 发表于：2009/10/19 10:49:00版主帮帮忙，谢谢
3楼
roy78 发表于：2009/10/19 11:09:00好像应该在 AfterCheckRow事件中设置以下代码，虽然可以达到你的要求，不过有点问题，你可以尝试一下。
Forms("数据查询窗口").Controls("输入查询姓名").value=e.Table.Current("姓名")
新手回复，有错莫笑
问题就是复选框的状态未变，我没看你的其它代码，不知道是不是有冲突
Forms("数据查询窗口").Controls("输入查询姓名").value=e.Table.Current("姓名")
新手回复，有错莫笑
问题就是复选框的状态未变，我没看你的其它代码，不知道是不是有冲突
[此贴子已经被作者于2009-10-19 11:09:37编辑过]
4楼
roy78 发表于：2009/10/19 11:16:00不过我感觉在这里用复选有点不太合适，如果是对字段去复选还算可以，如果用户不小心选择了两行，有可能会带来不可预知的后果（这种假设是在你复选后，通过按钮再去查询的时候）
5楼
雨中的泪 发表于：2009/10/19 11:24:00问题就是复选框的状态未变
就是这个问题！！！
就是这个问题！！！
6楼
雨中的泪 发表于：2009/10/19 11:24:00版主如何改，谢谢
7楼
roy78 发表于：2009/10/19 11:35:00放在改变前就行了 BeforeCheckRow
[此贴子已经被作者于2009-10-19 11:35:58编辑过]
8楼
雨中的泪 发表于：2009/10/19 11:41:00放在改变前，选择第一行以外的要报错
9楼
czy 发表于：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
if e.table.Current.Checked = True Then
Forms("数据查询窗口").Controls("输入查询姓名").Value = e.Table.Current("姓名")
e.table.Current.Checked = True
End If
10楼
雨中的泪 发表于：2009/10/19 13:45:00还是不行！！！版主