[求助]源代码错误分析
我这有段程序不知道有哪些错误Option Explicit
Dim WithEvents rs As ADODB.Recordset
Private Sub command1_click()
rs.AddNew
rs("档案编号") = 0
rs("档案名称") = ""
rs("入库时间") = ""
Set Text1.DataSource = rs
Text1.DataField = "日期"
Text1.SetFocus
If Option1 = True Then
Adodc1.RecordSource = "人事档案"
End If
End Sub
Private Sub OpenRs()
rs.Close
Set rs = Adodc1.RecordSource
Set Text1.DataSource = rs
Text1.DataField = "档案编号"
Set Text1.DataSource = rs
Text2.DataField = "档案名称"
Set Text1.DataSource = rs
Text3.DataField = "入库时间"
End Sub
运行后总提示 对象变量或With块变量未设置 希望能帮我找找错 谢谢了
