VB data控件弹出对话框“对象不支持该属性或方法”，但是程序运行正常

Private Sub List2_Click()
On Error Resume Next
Label3.Caption = ""
objdate = List2.Text
Data1.RecordSource = "select [situation],[plan] from [book] where [object]='" & objname & "'and [date]=#" & objdate & "#"
Data1.Refresh
’就是从这里开始往下的语句每到data1的地方就报一次错，但是运行结果是正确的=。=求解
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
If Data1.Recordset("plan") Is Null Then

plan = " "
Else
plan = Data1.Recordset("plan")
End If
Label3.Caption = Label3.Caption + Data1.Recordset("situation") + plan + Chr(13) + Chr(10)
Data1.Recordset.MoveNext
Wend

End Sub

话说，在其它过程中data1的这些属性还有方法都完全没有问题的

1、你首先把 On Error Resume Next 这句话去掉，运行的时候才能看看到底是什么错误！
2、你连接的是SQL数据库吗？
select [situation],[plan] from [book] where [object]='" & objname & "'and [date]=#" & objdate & "#"
中的字段名不需要用中括号[] 的直接写字段就可以了，
3、SQL 数据库中的日期字段不能用 # 符号了，该符号只使用在 Access 数据库中。
SQL中关于日期字段的查询语句：
如："字段名 >= Convert(DateTime,'" + Format(fDate(0), "YYYY/MM/DD") + " 00:00:00') "
AND 字段名 <= Convert(DateTime,'" + Format(fDate(1), "YYYY/MM/DD") + " 23:59:59') "
fDate(0)和 fDate(1) 是 Date控件DTPicker 中的值,表示开始日期及截止日期

运行后看到底是什么错误才修改..

private sub command1_click()

data1.recordsource = text1.text   '请确认您的sql是正确的

data1.refresh  '重新加载

end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息