Foxtable(狐表)用户栏目专家坐堂 → [求助]复制编码问题


  共有7504人关注过本帖平板打印复制链接

主题:[求助]复制编码问题

帅哥哟,离线,有人找我吗?
dqlgood
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:257 积分:4393 威望:0 精华:0 注册:2011/7/5 9:38:00
[求助]复制编码问题  发帖心情 Post By: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


 回到顶部