字段分行

仇国平　发表于：2011-05-07 15:22:01 　

报表中有一个文本框，数据源来自于表中某一字段，比如打开报表后文本框显示的是 “张三丰太极”，我想实现的要求是把张三丰和太极在一个文本框分成两行显示。如果名字全部是三个字符把文本框调整一下可以。但表中有的名字只有两个字符。比如“张三太极”，也要分成张三和太极。

Top

煮江品茶发表于：2011-05-07 15:53:48

插入 chr(13) & chr(10)

Top

煮茶论道发表于：2011-05-07 15:57:15

请问老师，在哪里插入。

Top

一过客发表于：2011-05-19 22:09:29

在2个字的姓名后加个空格

Top

煮江品茶发表于：2011-05-20 11:52:55

以下函数未经测试，思路大体如此，你自己试试看：

function str(str0 as string,m as long) as string

'功能：字符串定长换行

'参数：str0---字符串;m---单行字符数

'示例：me.备注.value=str(me.备注.value)

dim i as long

dim n as long

dim s as string

n=int(len(str0)/m)

s=""

for i=0 to n-1

s=s & mid(str0,i*m+1,m) & chr(13) & chr(10)

if len(str0)>len(mid(str0,1,n*m)) then

s=s & mid(str0,n*m+1)

else

s=left(s,len(s)-2)

end if

str=s

end function

Top

aslxt 发表于：2011-05-20 21:05:27

怎么知道字段中那些字符是姓名？

姓名不会是固定长度的，比如张三、张三丰、欧阳奋强...

Top

纵云梯发表于：2012-02-13 00:45:49

Private Sub Command14_Click()
    Dim Ar1 As Variant
    Ar1 = Split("张三、张三丰、欧阳奋强", "、")
    Me.Text1 = Join(Ar1, Chr(13) & Chr(10))
    MsgBox Join(Ar1, Chr(13) & Chr(10))
End Sub

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

字段分行