Set db = OpenDatabase("g:\工资.mdb")
db.Execute "delete from 个人税"
DoCmd.OpenQuery "个人所得税" '执行一追加查询到表“个人税”,
Set rsl = db.OpenRecordset("个人税", dbOpenTable)
If rsl.RecordCount = 0 Then
Exit Sub
End If
rsl.MoveFirst ‘这里出错,提示“没有记录”,但表中有多行数据。调试时F8可以通过 作者: cnqdcc 时间: 2003-9-14 23:57
如果你用的是dao,你尝试一下把引用中的ado引用去掉