在代码前加一句 On Error Resume Next
Private Sub Text1_Change(Index As Integer)
On Error Resume Next '遇到错误继续执行下一句 name4$ = Text1(2).Text Data4.Recordset.FindFirst "户主姓名='" & name4$ & "'" '只是简化了一下,原来的没有问题End Sub
为什么要加(Index As Integer)???