可以把备注型字段转换到文本型字段中,从备注型字段截取报表中的字调整后按行显示。
本人写的一部分代码,仅供参考
**备注内容到字符内容的转换,按报表中字符转换
if used("temp1")&&判断temp是否打开
sele temp1
else
sele 0
use temp1
endif
**赋值需要转换的字段到变量
abc1=案情摘要+chr(13)+chr(10)&&把事实备注字段内容赋值abc1
abc2=办案意见+chr(13)+chr(10)
if used("lsb1")&&判断lsb是否打开
sele lsb1
else
sele 0
use lsb1
endif
delete all&&清空lsb所有记录
pack
append blank&&lsb添加空记录
**求各变量字段字符串长度
len1=len(abc1)&&求abc1字符串长度
len2=len(abc2)
**提取字段字符到临时表
**案情摘要字段
k=50
&&通过输入非汉字字符的奇偶性来判断是否产生半个汉字产生>128
p=0
if asc(subs(abc1,k,1))>128
for i=1 to k
if asc(subs(abc1,i,1))<128
p=p+1
else
p=p
endif
endfor
if mod(p,2)=1
k1=k
&&奇数
else
k1=k+1
&&偶数
endif
else
k1=k+1
endif
a1=subs(abc1,1,k1-1)
&&abc1提取25个字
replace 案情摘要1 with a1
&&变量a值给字段案情摘要1
b1=len1-len(a1)
if b1>54
c1=subs(abc1,k1,54)&&提取27个字
else
c1=subs(abc1,k1,b1-2)
endif
replace 案情摘要2 with c1
d1=len1-len(a1)-len(c1)
if d1>54
e1=subs(abc1,k1+54,54)&&提取27个字
else
e1=subs(abc1,k1+54,d1-2)
endif
replace 案情摘要3 with e1
f1=len1-len(a1)-len(c1)-len(e1)
if f1>54
g1=subs(abc1,k1+108,54)&&提取27个字
else
g1=subs(abc1,k1+108,f1-2)
replace 案情摘要4 with g1
endif