VB 缺少过程 不是变量?

来源:百度知道 编辑:UC知道 时间:2024/06/15 21:10:59
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) '记录指针移动后
On Error GoTo er
If IsNull(uRS!userPW) Then uRS! userPW = " "
If IsNull(uRS!power) Then uRS!power = String(16, "n")
Call check1init '重新初始化Check1控件
er:

End Sub
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) '记录指针移动后 黄色标记的这个
uRS! 蓝色标记的这个

没弄懂你到底什么意思?
要是代码是你上边这段,那不出错才怪.

er:

End Sub
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) '记录指针移动后 黄色标记的这个
uRS! 蓝色标记的这个
''这到底是什么?

If IsNull(uRS!userPW) Then uRS! userPW = " " 中的uRS! userPW感叹号后面多了一个空格,删除即可