设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 424|回复: 7
打印 上一主题 下一主题

#关于列表框#

[复制链接]
跳转到指定楼层
1#
发表于 2003-1-8 23:30:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
问题打开的“输入法”窗体,列表框没有选中。

希望是下面的效果,打开就选第一个,最好在没有数据时提示一下啦
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2003-1-12 03:58:00 | 只看该作者
这个问题大家就是不关心,还是不会?
3#
发表于 2003-1-12 04:07:00 | 只看该作者

傻丫头, 是你没说明白!!!

傻丫头, 是你没说明白!!! 让人怎么回答你啊?!!!!!!!!!!!
4#
 楼主| 发表于 2003-1-12 05:38:00 | 只看该作者
上面两个图片不明白吗,问题就是窗体打开时列表框没有焦点选中,希望能打开窗体就选中(按用户要求),如果没有数据,就提示……
5#
发表于 2003-1-12 06:02:00 | 只看该作者
在Form_Load中加上,其中0表示第1行被选中,可改为其他数字:
    Me.列表0.Selected(0) = True
6#
 楼主| 发表于 2003-1-12 17:38:00 | 只看该作者

问题

以下是引用Trynew在2003-1-11 22:01:47的发言:
在Form_Load中加上,其中0表示第1行被选中,可改为其他数字:
    Me.列表0.Selected(0) = True


发现
     Me.列表0.Selected(1) = True才是第一行,如果列表框没有数据,还是不能判断啊……
7#
发表于 2003-1-12 17:44:00 | 只看该作者

判断是否有记录

If 已选代码.ListCount = 0 Then   '如果"已选代码"列表框的记录等于零
        MsgBox "没有可删除的材料!", vbExclamation  '显示这条消息
        Exit Sub   '退出过程,不执行下面的代码
End If

上面的语句是从下面的例子里抽出来的,这是一个关于列表框操作的例子,希望能帮到你:
http://www.officefans.net/cdb/viewthread.php?tid=458
8#
 楼主| 发表于 2003-1-12 18:22:00 | 只看该作者
正好适用
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-29 19:44 , Processed in 0.092695 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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