急啊，邦忙

[okcat]

Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB临时文件夹\产品关系表.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "产品表"
Adodc1.Recordset.Find "钢种='wang'" '报错处　　报错信息：对象变量或　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　With块变量未　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　定义
Adodc1.Recordset.Fields("甲班1＃机当日累计") = Str(1)
Adodc1.Recordset.Fields("甲班1＃机合计") = Str(2)
Adodc1.Recordset.Fields("甲班1＃机钢铸浇坯数") = Str(3)
End Sub

为身摸要报错？？？？？？？急啊，为什么啊，邦邦忙啊

[online]

Adodc1.RecordSource = "产品表"
Adodc1.Refresh

• 打赏
• 举报

回复 赞

[okcat]

不是啊，是　Adodc1.Recordset.Find "钢种='wang'" 出错了。
为什么？

• 打赏
• 举报

回复 赞

[Andy__Huang]

是不是已經
Adodc1.Recordset.eof=true ?

• 打赏
• 举报

回复 赞