发表于：2005/6/5 23:23:00
#0楼
If Not txtDepartID.Locked Then
strSQL = "SELECT * FROM Department WHERE DepartID=" & txtDepartID.Text & ""
DataValid.RecordSource = strSQL
DataValid.Refresh
If Not DataValid.Recordset.EOF Then
Msg = "院系编号[" & txtDepartID.Text & "]已经存在，不能重复。"
MsgBox Msg
txtDepartID.SetFocus
Exit Sub
End If
End If
请个位大虾帮忙看看我这段VB代码有没有语法上的错误。。。
我运行程序老是说这段出错我都不知道是不是那里错了个点或者双引号，先谢谢各位了
strSQL = "SELECT * FROM Department WHERE DepartID=" & txtDepartID.Text & ""
DataValid.RecordSource = strSQL
DataValid.Refresh
If Not DataValid.Recordset.EOF Then
Msg = "院系编号[" & txtDepartID.Text & "]已经存在，不能重复。"
MsgBox Msg
txtDepartID.SetFocus
Exit Sub
End If
End If
请个位大虾帮忙看看我这段VB代码有没有语法上的错误。。。
我运行程序老是说这段出错我都不知道是不是那里错了个点或者双引号，先谢谢各位了