Basic:
dim ss(2) as string
ss=split({命令.chk},"-")
dim s1,s2 as string
s1="":s2=""
if ubound(ss)>=1 then s1=ss(1)
if ubound(ss)=2 then s2=ss(2)
dim remark as string
remark={命令.remark}+chr(13)
remark=remark+"付款帳戶:"+s2+chr(13)
remark=remark+"付款帳號:"+s1+chr(13)
remark=remark+"支票號碼:"+{命令.sno}+chr(13)
remark=remark+"收款人名稱:"+{命令.suer}+chr(13)
formula =remark


參考來源:http://topic.csdn.net/t/20051109/14/4382016.html

posted on 2007-08-02 15:45  小哈  阅读(556)  评论(0编辑  收藏  举报