请问一个很简单的DAO问题，急|！！！！！！

Question

If buyorder.EOF = False Or buyorder.BOF = False Then
  buyorder.MoveLast
  Me.Text1 = CInt(buyorder.Fields("buy_order_number")) + 1 '''自动将采购订
单号码加一
Else
  Me.Text1 = "1" ''''如果表为空，则填写“1”
End If
既然你上面用了CInt，说明buy_order_number就Integer型，那为什么下又赋给一个字符型"1"呢？此外，你使用了绑定吗？

Answer 1

试图使用一个没有定义的别名。当前所使用的别名中没有这样的名称.这是MSDN对错误13的解释，希望对你有帮助。

Answer 2

你要判断一下
NULL的情况
iTemp=buyorder.Fields("buy_order_number")
Me.Text1=iif(isnull(iTemp),0,iTemp)

Answer 3

tryIf buyorder.EOF = False Or buyorder.BOF = False Then
  buyorder.MoveLast
  Me.Text1 = CInt(iif(isnull(buyorder.Fields("buy_order_number")),1, buyorder.Fields("buy_order_number")+ 1) '''自动将采购订
单号码加一
Else
  Me.Text1 = "1" ''''如果表为空，则填写“1”
End If

Answer 4

我单步执行到语句：Set buyorder = mydb.OpenRecordset("buy_order", dbOpenTable)  
就执行不下去了，显示了问题中的出错信息

Answer 5

我单步执行到语句：Set buyorder = mydb.OpenRecordset("buy_order", dbOpenTable)  
就执行不下去了，显示了问题中的出错信息

Answer 6

  Me.Text1 = CInt(buyorder.Fields("buy_order_number")) + 1 
改为
  Me.Text1 = CInt(buyorder.Fields("buy_order_number") & "") + 1