设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[模块/函数] 如何使文本内容叠加起来!

[复制链接]
跳转到指定楼层
1#
发表于 2003-4-17 20:44:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
有1列表框
有1文本框
想在列表框这边双击某条记录
文本框里显示内容

第一次在列表框里双击某条记录,文本框里的值就是这条记录的值。(如这条记录的内容是 ”第一次“)

第二次在列表框里双击另外一条记录,文本框里的值就是上次的记录+这次记录的值。(上次的内容是”第一次“,这次双击记录内容是”第二次“)那么就应该在文本框里显示
”第一次第二次““

……

谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2003-4-17 20:57:00 | 只看该作者
提供一个思路:
文本框值=[第一次] & [第二次]


[此贴子已经被作者于2003-4-17 12:57:27编辑过]

3#
 楼主| 发表于 2003-4-17 22:21:00 | 只看该作者
p1=list0.value '第一次双击的记录的值,以后每次双击的值也就赋给P1
p2=list0.value '第二次双击的记录的值
p3= p2 & p1 ' P3的值就等于 第一次 & 第二次
p2 = p3 ' 把第一次和第二次合并的内容给P2 ,下次如果P1的内容是“第三次”,那么P3的值就是 第一次第二次 & 第三次
文本框.value= p3

这样对吗?不过反正我还是写不代码来?谁能告诉我啊!
4#
 楼主| 发表于 2003-4-25 05:02:00 | 只看该作者
我用3个文本框来实现了这个功能,但如果用变量的话,变样写代码呢?
Private Sub List0_AfterUpdate()
Text4.Value = Text6.Value
End Sub

Private Sub List0_BeforeUpdate(Cancel As Integer)
Text4.Value = 文字变化.Value
End Sub

Private Sub List0_DblClick(Cancel As Integer)
文字变化.Value = List0.Value
Text6.Value = Text4.Value & 文字变化.Value
Text1.Value = "字数(含标点):" & Len(Text6.Value)
End Sub


注:Text6为最终显示的内容!
5#
发表于 2003-4-25 05:11:00 | 只看该作者
就一行程序就可以了.
private sub lstSelect_DblClick(Cancel as integer)
    txtSum.value=txtSum.value & lstSelect.Value
end sub
6#
 楼主| 发表于 2003-4-25 05:13:00 | 只看该作者
唉,真好!(自己还搞得那样复杂)
谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-26 04:48 , Processed in 0.092856 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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