高分白送!紧急求救!VB数据库!
这是我的代码!~但是,运行说我“实时错误‘91’:对象变量或WITH块变量未设置”!怎么处理啊!~
If Text1.Text <> "" Then
txtsql = "select * from ReaderMessage where ReaderName like '%" & Trim(Text1.Text) & "%'"
End If
If Text2.Text <> "" Then
txtsql = "select * from ReaderMessage where ReaderIndex =" & Trim(Text2.Text)
End If
If Text3.Text <> "" Then
txtsql = "select * from ReaderMessage where Age =" & Trim(Text3.Text)
End If
If Text4.Text <> "" Then
txtsql = "select * from ReaderMessage Duty like '%" & Text4.Text & "%'"
End If
If Combo1.Text <> "" Then
txtsql = "select * from ReaderMessage where Sex =" & Trim(Combo1.Text)
End If
If Combo2.Text <> "" Then
txtsql = "select * from Reader where ReaderType=" & Trim(Combo2.Text)
End If
ExecuteSql (txtsql)
sekreader.Rows = 1
sekreader.TextMatrix(0, 0) = "读者ID"
sekreader.TextMatrix(0, 1) = "姓名"
sekreader.TextMatrix(0, 2) = "性别"
sekreader.TextMatrix(0, 3) = "年龄"
sekreader.TextMatrix(0, 4) = "读者类型"
sekreader.TextMatrix(0, 5) = "职务"
For i = 0 To 5
sekreader.ColAlignment(i) = 0
Next
Do While Not rs1.EOF And rs2.EOF
sekreader.Rows = sekreader.Rows + 1
sekreader.TextMatrix(sekreader.Row - 1, 0) = rs1.Fields("ReaedrIndex")
sekreader.TextMatrix(sekreader.Row - 1, 1) = rs1.Fields("ReaderName")
sekreader.TextMatrix(sekreader.Row - 1, 2) = rs1.Fields("Sex")
sekreader.TextMatrix(sekreader.Row - 1, 3) = rs1.Fields("Age")
sekreader.TextMatrix(sekreader.Row - 1, 4) = rs2.Fields("ReaderType")
sekreader.TextMatrix(sekreader.Row - 1, 5) = rs1.Fields("Duty")
rs1.MoveNext
rs2.MoveNext
Loop
rs1.Close
rs2.Close