杭州交通信息网中空板纸箱:VB设置text的multiline属性为true，怎样去掉第一个空行呢？
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/09 10:20:39
例如：sum=sum+a(i,j)
n=n & chr(13) & sum
text1=n
现在输出的数据第一行为空，怎样不产生？
n=n & chr(13) & sum
text1=n
现在输出的数据第一行为空，怎样不产生？
你的n 第一个数是个空值，但它后面加了个 回车 所以出现第一个空行。
你只要改一下：
sum=sum+a(ij)
n=n & sum & chr(13)
text1=n
///////if
sum=sum+a(ij)
if n<>"" then n=n & chr(13) & sum
text1=n
最后行改为：
if instr(n,chr(13))=1 then
text1.text=right(n,len(n)-1)
else
text1.text=n
endif
对于怀疑首字为回车的去掉法都可以这样。但如果不只是回车而是回车加换行（这种情况更常见）应该改为下面：
if instr(n,chr(13) & chr(10))=1 then
text1.text=right(n,len(n)-2)
else
text1.text=n
endif