求助:为什么对象不支持该属性或方法

zzzhang zzzhang 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
Dim Conn As New ADODB.Connection
Set Conn=CurrentProject.Connection
Dim Rst As New ADODB.recordset
Dim strSQL As String

strSQL= "SELECT 日期, " & _
"单据号, " & _
"供应商, " & _
"物料编码, " & _
"名称, " & _
"规格型号, " & _
"入库数量, " & _
"单价 " & _
"FROM 进出帐 WHERE " & ME.Combo1 & " LIKE ' " ME.Text3 & " ' "

Rst.Open strSQL,Conn,adOpenKeyset,adLockOptimistic
IF Rst.eof then
MsgBox "没有此信息查询 ",vbExclamation, "提示 "
Exit Sub
END IF

Datagrid1.DataSource=Rst

为什么运行到最后赋值给Datagrid1数据来源 "Datagrid1.DataSource=Rst "时出错,
提示 "运行时错误 '438 ' 对象不支持该属性或方法 "
求助各位,在此先谢谢各位了
...全文

相关推荐

评论 7
收藏 已收藏
分享
返回顶部
zzzhang
Access 7,731 成员 28,797 内容