有问题，帮我``！

HermesZ

Set rsZW = cnZW.Execute("select max(fnumber) from t_voucher where fperiod = " + CStr(sFPeriod) + " and fyear = " + CStr(sFYear) + "")
If rsZW.EOF Or IsNull(rsZW(0)) Then
lNum = 1
Else
lNum = rsZW(0) + 1
End If 我想导入数据库一段代码。是按年月搜索数据库里面的年月的最大值，然后递增排列。 .Fields("FNumber") = ？？？？ 我这个地方如何写啊？这张表里面也有年月的，但是没有FNumber这个字段。

loadhigh

HermesZ：你好！ 首先，没有看明白你的意思。请描述的更明白些。 不过你的代码可以这样简化： Set rsZW = cnZW.Execute("select max(fnumber) from t_voucher where fperiod = " + CStr(sFPeriod) + " and fyear = " + CStr(sFYear))
If rsZW.recordcount = 0Then
lNum = 1
Else
lNum = rsZW.fields(0) + 1
End If