以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]复制编码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19656)
--  作者：dqlgood
--  发布时间：2012/5/17 10:20:00
--  [求助]复制编码问题

如题：

\'\'\'
Dim s,s1,s2,s3,s4,s5,s6 As String
s1 = "客户名称："
s2 = Tables("客户").Current("客户名称")
s3 = "  联系人 ："

s4 = Tables("客户").Current("联系人")

s5 = "  电   话 ："
s6 =  Tables("客户").Current("电话")
s = s1 & s2 & s3 & s4 & s5 & s6
ClipBoard.SetText(s)

 

粘贴文本效果为：

 

客户名称：联想电脑公司  联系人 ：周瑜  电   话 ：010-88667722

 

我想将其变成下面的效果，如何改写？

 

客户名称：联想电脑公司

  联系人 ：周瑜

  电   话 ：010-88667722
--  作者：狐狸爸爸
--  发布时间：2012/5/17 10:25:00
--  

参考：

http://www.foxtable.com/help/topics/0347.htm

 
--  作者：yinyb36
--  发布时间：2012/5/19 0:36:00
--  

s = s1 & s2 & s3 & s4 & s5 & s6
改为：

s = s1 & s2 & vbcrlf & s3 & s4 & vbcrlf & s5 & s6