设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[窗体] 多选并复制的问题

[复制链接]
跳转到指定楼层
1#
发表于 2009-12-4 16:23:24 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
本帖最后由 goto2008 于 2009-12-4 16:36 编辑

比如列表框多选三行记录,文本框即可以显示三行记录的合并,并用逗号隔开。


怎么实现??

本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
4#
 楼主| 发表于 2009-12-6 22:19:38 | 只看该作者
请教,我想实现多选出来的结果,按一行一行排列,那样好像看着拥挤。。。
能否实现如下效果。。。。
工号1:姓名1,
工号2:姓名2,
工号3:姓名3
3#
 楼主| 发表于 2009-12-4 20:44:01 | 只看该作者
非常感谢todaynew 大哥。。。是这个效果。
2#
发表于 2009-12-4 18:20:50 | 只看该作者
本帖最后由 todaynew 于 2009-12-4 20:17 编辑



1、列表框的多重选择属性设置为展开的

2、列表框双击事件如下:
Private Sub 工序列表框_DblClick(Cancel As Integer)
Dim i As Long
Dim str As String
For i = 0 To Me.工序列表框.ListCount
    If Me.工序列表框.Selected(i) = True Then
           str = str & Me.工序列表框.Column(0, i) & Me.工序列表框.Column(1, i) & ";"
    End If
Next
Me.车间.Value = str
End Sub

本帖子中包含更多资源

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

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-13 02:44 , Processed in 0.087455 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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