在线结分

Question

Set rs = conn.Execute("Select Max(zdno) From zdls")
If rs.Fields(0) = 0 Then
   k = 1
Else
   k = rs.Fields(1) + 1
End If
rs.Update
'货品号Text1.Text = Format(Date, "yyyyMMdd") & Format(Time, "hhmmss") & Format(Weekday(Now), "dd") & Format(k, "0000")如果数据库中没有数据那就从1开始``如果有数据就在原来的基础上加1``
看一下这个代码哪里出错了`

Answer 1

Set rs = conn.Execute("Select Max(zdno) From zdls")
If rs.Fields(0) = 0 Then
   k = 1
Else
   k = rs.Fields(0) + 1
End If
rs.Updatek = rs.Fields(0) + 1
应该从0开始，可能是你笔误吧。

Answer 2

k = rs.Fields(1) + 1根本就没有rs.Fields(1)这个字段嘛

Answer 3

Set rs = conn.Execute("Select isnull(Max(zdno),0) From zdls") 'sql2000
If rs.Fields(0) = 0 Then
   k = 1
Else
   k = rs.Fields(0) + 1
End If主要是数据没有的时候，取出来的是null

Answer 4

Set rs = conn.Execute("Select isnull(Max(zdno),0) From zdls") 'sql2000
If rs.Fields(0) = 0 Then
   k = 1
Else
   k = rs.Fields(0) + 1
End If