标题: 【求助】大哥们，救救我吧！ [打印本页] 作者: ljwei692 时间: 2003-12-12 04:36 标题: 【求助】大哥们，救救我吧！ 我在测试时一切正常，可在向服务器上移植时却出现下面提示：[attach]2780[/attach]
是这段代码出的问题：
With CodeContextObject
Dim db As DAO.Database
Dim RegNo As DAO.Recordset
Set db = Application.CurrentDb
Set RegNo = db.OpenRecordset("select [invoice register].[invoice reg no] from [invoice register] order by [invoice reg no]")
With RegNo
.MoveLast
lastno = ![Invoice Reg No]
End With
'MsgBox lastno
End With
可是换个DNS做数据源时却完全正常，
我是在向SQL数据库升迁数据时出现的这个问题，我都蒙了，不知道我说清楚了没有，头都快炸了，希望高手们能帮帮小弟，不胜感激！谢谢！