设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2414|回复: 10
打印 上一主题 下一主题

[其它] 如何使选定的行变成高亮显示?

[复制链接]
跳转到指定楼层
1#
发表于 2007-4-28 16:44:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
当光标选中子窗体任意一行时,即光标进入任意一个单元格,如何使选定的行变成高亮显示?如图所示:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
11#
发表于 2008-8-22 22:26:22 | 只看该作者
10楼中的 ctla.  ,怎么无法编辑呢?只好跟贴更正。

传附件总可以吧?

[ 本帖最后由 wu8313 于 2008-8-22 22:32 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
10#
发表于 2008-8-22 22:15:07 | 只看该作者
如果是acc2007的话,将会自动加上所在行的边框,不过没有高亮显示。

------------------------------------------------------------------------------------------
如果,希望单击某字段不执行高亮显示的,可以在子窗体中贴上如下代码,正好手边上我写了一段。

单击 '姓名' 字段的话,就不执行高亮显示(而是弹出一个快捷菜单等等)

Private Sub Form_Load()
Call focus_select
End Sub
Public Sub my_sel_rec()
DoCmd.RunCommand acCmdSelectRecord
End Sub
Private Sub focus_select() '文本框获取焦点后,行选该记录
For Each ctla In Me.Controls
    Select Case ctla.ControlType
        Case acTextBox
         If ctla.name <> "姓名" Then
         ctla.
         Else
          '你定义弹出快捷菜单或者其他操作
         End If
        Case Else
        '什么也不做
    End Select
Next ctla
End Sub

[ 本帖最后由 wu8313 于 2008-8-22 22:26 编辑 ]
9#
发表于 2008-8-22 14:11:26 | 只看该作者
抖动的问题怎么就解决不了呢?
8#
发表于 2008-8-22 14:01:15 | 只看该作者
再赞一个
7#
发表于 2008-8-22 14:00:56 | 只看该作者
很好赞一个
6#
发表于 2008-2-21 23:08:14 | 只看该作者
非常感谢!真是太好了,又学会一招
5#
发表于 2007-4-28 22:25:00 | 只看该作者
也可以,那要用到条件格式.这样窗体会有点抖动,你可以搜索一下,有这方面的资料
4#
 楼主| 发表于 2007-4-28 20:49:00 | 只看该作者
想再问一个问题,那个高亮显示是黑色为背景色的,那么这个黑色可以改成其他颜色吗?如橙色,请问如何改?
3#
 楼主| 发表于 2007-4-28 17:40:00 | 只看该作者
非常感谢!真是太好了,又学会一招!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-9-22 01:15 , Processed in 0.119361 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表