VB里一个汉字长度是1，SQL里一个汉字长度是2？ 怎么解决输入限制问题？

[yeman]

我在SQL里设置字段长度为4（字符型），想最多输入4个字母。
我在VB的文本框限制最多输入4个字符。

但是我却可以在文本框里输入四个汉字，结果产生错误。
len（汉字）结果为2.在SQL里应该是4.

如何解决这个问题？

[pigsanddogs]

Public Function LenExt(str As String) As Long
Dim i As Long
For i = 2 To LenB(str) Step 2
If AscB(MidB(str, i, 1)) > 0 Then
LenExt = LenExt + 2
Else
LenExt = LenExt + 1
End If
Next i
End Function
用这个函数吧

[yeman]

有没有办法判断输入的是汉字还是英文，或者英文+数字？

[czjw]

A = "中国人chinese"
B = StrConv(A, vbFromUnicode)
C = LenB(B)
C的值是13