文本型长字段的等宽显示

对于文本型的字段（或公式，或参数或文本框等等），如果内容较多，可以通过在字段上点右键，设置对象格式，勾选可以扩大即可进行分行显示。
不过有时候效果并不能令我们满意，比如对于一个字段：有一个字段内容为：xxxxxxx yyyyyyyyyyy zzzzzzzzzzzz
这个字段在水晶报中显示为：
xxxxxxx
yyyyyyyyyyy
zzzzzzzzzzzz

而实际上要显示为：
xxxxxxx yyyyy
yyyyyy  zzzzzz
zzzzzz

因为水晶报表在换行时，优先保留了单词的完整性（或者说优先以空格、符号位置换行），所以一般不会在单词中间断开的。

这里我们可以做一个公式，对其主动换行。使用 basic 语法

Dim i as number
Dim j as number
Dim s1 as string
Dim s2 as string
'要处理的字符串
s1="xxxxxxx yyyyyyyyyyy zzzzzzzzzzzz"
'每行需要的宽度
j=Length("xxxxxxx yyyyyy")
for i=1 to Len(s1) 
    '如果是第一行，不用换行
    if i=1 then 
        s2=Mid(s1,i,j)
    Else
        '不是第一行则加一个换行
        s2= s2 & chr(13) & Mid(s1,i,j)
    End if
    '切换到下一个分割点
    i=i+j
Next
formula=s2

 

这个对纯英文字符是可以直接用的（该公式拖到模板上后也要将其设置为可扩大），但是如果是中文或其他语种可能就要注意宽度。

比如这样一段文本：汇景大道宝德花园南区15街2座10梯201房、401房、501房；东风东路锦城花园A区2座1601房、 1701房、1801房。

明显数字和汉字的宽度是不一样的，而且数字1和数字5的显示宽度上也有差异，在处理的时候则要特别注意些。