小问题：

[wangluoxing]

有一语句： For i = 0 To tmprst.recordcount - 1
If trim$(tmprst.Fields(0).Value) <> curNo Then
MsgBox "编号为" & strValue(0) & "的教学区已经存在，请重新设置编号。", vbOKOnly Or vbCritical, "错误提示"
txtJXNum.SetFocus
txtJXNum.SelLength = Len(Trim$(txtJXNum.Text))
Exit Sub
End If
next i
问题：当trim$(tmprst.fields(0).value)=curno时运行then后语句：他们都为string型：比如都等以02时，仍运行 then msgbox "................"
请各位帮忙啊：

[ivt]

如果都等于2会怎样呢

[jjjwltcs]

请关注下面的贴子
http://www.csdn.net/expert/topic/701/702000.xml?temp=.9355738

[jdsbjcailei]

If trim$(tmprst.Fields(0).Value) <> curNo Then
MsgBox "编号为" & strValue(0) & "的教学区已经存在，请重新设置编号。", vbOKOnly Or vbCritical, "错误提示"
txtJXNum.SetFocus
txtJXNum.SelLength = Len(Trim$(txtJXNum.Text))
Exit Sub
else
'加上这个else才是完整的if then语句
End If
next i

[jdsbjcailei]

For i = 0 To tmprst.recordcount - 1
If trim$(tmprst.Fields(0).Value) <> curNo Then
MsgBox "编号为" & strValue(0) & "的教学区已经存在，请重新设置编号。", vbOKOnly Or vbCritical, "错误提示"
txtJXNum.SetFocus
txtJXNum.SelLength = Len(Trim$(txtJXNum.Text))
Exit Sub
else
'加上这个else试试
End If
next i

[MoQi_123]

少了一个tmprst.MoveNext
正确代码为：
tmprst.MoveFirst
： For i = 0 To tmprst.recordcount - 1
If trim$(tmprst.Fields(0).Value) <> curNo Then
MsgBox "编号为" & strValue(0) & "的教学区已经存在，请重新设置编号。", vbOKOnly Or vbCritical, "错误提示"
txtJXNum.SetFocus
txtJXNum.SelLength = Len(Trim$(txtJXNum.Text))
Exit Sub
End If

tmprst.MoveNext

next i

[wangluoxing]

上面的兄弟：都不可以啊