Question

VB if 判断非空，代码如下，但在文本框text2（5）内容为空的时候也照样从第一句开始执行，请问这是为什么

If Trim(Text2(5).Text) <> "" Then
sql = "select * from doctor where 编号=" & Val(Text2(5).Text) & " "
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这位医师或编号有误", 64, "病人信息修改"
Text2(5).Text = ""
Text2(5).SetFocus
Exit Sub
rs_login.Close
End If
rs_login.Close
End If

Answer 1

trim有很多trim不掉的，只是肉眼看上去是空的，实际并不为空，可以用以下语句试一下，长度应该不为零
Print Len(Trim(Text2(5).Text))

Answer 2

判断非空的代码应该这样写：
if len(text2(5).text)>0 then

Answer 3

不会的，Text2(5).Text必定有内容，如果你还有怀疑，你可以在第二行插一句：
If Trim(Text2(5).Text) <> "" Then
msgbox Trim(Text2(5).Text)

Answer 4

if len(text2(5).text)>0 then ' 不为空, 我习惯这样判断

Answer 5

我试了下不会出现你说的问题，当然有3种情况你要注意：
1，Text2(5).Text 中内容过长，而非空的内容后面有N多空格，结果你眼睛看到的就是空了，解决方法就是用代码赋值为Text2(5).Text ="" 然后看看
2，Trim(Text2(5).Text) <> "" 中输成Trim(Text2(5).Text) <> " " ，即中间有了一个空格
3，你是否自定义了一个Trim函数