Question

VB高手请速度进，明天要，在线等待 奉上全部家当只求一解！！！

1.VB查询窗体出错！！附上代码……
2.求查询窗体代码 附图片——在上一个窗体中输入学号，然后点击查询跳转到下一个窗体并在窗体中显示各项信息（既：在学号查询窗体中输入学号，在信息更新窗体中查看信息！！）
跪求高手帮帮忙，实在没办法了，明天早上答辩啊……
1问代码：
Private Sub Command1_Click()
Dim txtSQL As String
Dim MsgText As String
Dim dd(3) As Boolean
Dim mrc As ADODB.Recordset
txtSQL = "select * from weixiujindu_Info where"
If Check1.Value Then
If Trim(Text1.Text) = "" Then
sMeg = "报修单号不能为空"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
Else
If Not IsNumeric(Trim(Text1.Text)) Then
MsgBox "请输入数字 ！", vbOKOnly + vbExclamation, "警告"
Exit Sub
Text1.SetFocus
End If
dd(0) = True
txtSQL = txtSQL & "wxiuID='" & Trim(Text1.Text) & "'"
End If
End If
If Check2.Value Then
If Trim(Text2.Text) = "" Then
sMeg = "宿舍号不能为空"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Exit Sub
Else
dd(1) = True
If dd(0) Then
txtSQL = txtSQL & "and dormID='" & Text2.Text & "'"
Else
txtSQL = txtSQL & "dormID='" & Text2.Text & "'"
End If
End If
End If
If Not (dd(0) Or dd(1) Or dd(2)) Then
MsgBox "请设置查询方式 ！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
txtSQL = txtSQL & "order by wxiuID"
Set mrc = ExecuteSQL(txtSQL, MsgText)
With MSFlexGrid1
.Rows = 2
.CellAlignment = 4
.TextMatrix(1, 0) = "维修单号"
.TextMatrix(1, 1) = "宿舍号"
.TextMatrix(1, 2) = "报修原因"
.TextMatrix(1, 3) = "报修时间"
.TextMatrix(1, 4) = "处理人"
.TextMatrix(1, 5) = "处理时间"
.TextMatrix(1, 6) = "处理结果"
.TextMatrix(1, 7) = "备注"
Do While Not mrc.EOF（该处出错了！错误信息：“实时错误'91'对象变量或With块变量未设置”）
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
.TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
.TextMatrix(.Rows - 1, 2) = mrc.Fields(2)
.TextMatrix(.Rows - 1, 3) = mrc.Fields(3)
.TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
.TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
.TextMatrix(.Rows - 1, 6) = mrc.Fields(6)
.TextMatrix(.Rows - 1, 7) = mrc.Fields(7)
mrc.MoveNext
Loop
End With
mrc.Close
End Sub

Answer 1

错误原因可能是
Set mrc = ExecuteSQL(txtSQL, MsgText)

这个语句返回的是一个 空值
所以 mrc = nothing. 自然不能 . 任何东西

程序多大 , 数据库是什么的, 如果是 access 的, 请一起打包给我发过来, 我看看

给我发消息, 我给你邮箱
先说明不一定能帮上忙