我想在报表里打印数据库的字段，但是打印输出后的长度不一致，非常的难看，
想取得变量的长度后，用空格进行调整，但是变量的长度，却怎么也调不准

比如说“编程论坛”和“bianchen”这两个字符串
用 len 函数 字符串：“编程论坛”的长度是4 而字符串：“bianchen”是8
用 lenB 函数 字符串：“编程论坛”的长度是8 而字符串：“bianchen”是16
请问用什么方式才能 判断 字符串：“编程论坛”和字符串：“bianchen”的长度一致的

请 指点迷津 谢谢

比如你要一个iCun位的字串（前面包括空格，后面是你要打印的数据）
你可以这样：
'iCun是你要的串长
'sStr是你要打印的字串
'返回值是处理过的字串
function myStrCpt(sStr$,iCun%) as string
dim subStr$
substr=string(iCun," ")
mystrcpt=left(subStr,icun-len(trim(sstr))) & trim(sStr)
end function

看错了，你要的不是这个问题

你要把他们转换成Asc字符串
用strConv（vbNarrow）把字符串转换成单字节的字串
但是不能用于打印，只用于计算空格数
然后，补上空格就行了

你这个问题应该概括为 怎么判断当前字符是英文还是汉字 如果是汉字则算2字节

一个一个字用ascii码判断 ascii码落在[0,127]内的为非汉字 落在之外的为汉字

If LenB(StrConv("编程论坛", vbFromUnicode))=LenB(StrConv("bianchen", vbFromUnicode)) Then Msgbox "长度一致"

如果你想让你一个字符串的打印长度始终为20可以这样做
Dim I as Long,Str1 as String

Str1="我爱VB"
I=LenB(StrConv(Str1, vbFromUnicode))
If I<20 then Str1 = Space(20 - I) & Str1 '这是靠右，居中或是靠左自己根据这个思想稍为改改就行了。这里没有处理如果字符串长度大于20的情况。

[此贴子已经被作者于2007-5-1 11:28:04编辑过]