在线结分
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``
看一下这个代码哪里出错了`


[解决办法]
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