提示要求对象

Question

On Error GoTo cmderror
Dim Sear_data1 As String
Dim Sear_date2 As StringIf Option1.Value = True Then
   Sear_date1 = Format(CDate(Combo_S1.Text & "-" & _
   Combo_S2.Text & "-" & Combo_S3.Text), "yyyy-mm-dd")
   Sear_date2 = Format(CDate(Combo_E1.Text & "-" & _
   Combo_E2.Text & "-" & Combo_E3.Text), "yyyy-mm-dd")
   gsql = "select * from test where data between #" & _
   Sear_date1 & "#" & " and" & " #" & Sear_date2 & "#"
End If
rs_data1.Open gsql, conNew, adOpenKeyset, adLockPessimistic
Hcbf.displaygrid1
Unload Mecmderror:
If Err.Number <> 0 Then
       MsgBox Err.Description            
执行过程中提示“要求对象”请问是什么原因？

Answer 1

我估计楼主用的控件是DBGrid，不是DataGrid吧？？

Answer 2

rs_data1.Open gsql, conNew, adOpenKeyset, adLockPessimistic
执行到这一步之后就直接跳到cmderror了，没有执行Hcbf.displaygrid1。显示数据用的是msflexgrid控件。

Answer 3

把On Error GoTo cmderror去掉
看看是那出的错

Answer 4

调试下看看SQL语句与connew是否定义（是public吗？）

Answer 5

用F8调试一下
屏蔽On Error GoTo cmderror
注意一下,连接,记录集的定义

Answer 6

问题找到了  是rs_data1的问题。