请教，一段自动编号的代码，代码格式为：D-“年份”-0005（顺序号），获得相同年份最大编号的筛选条件如下：
Dim flt As String
flt = "'SubString(Convert([下单日期],'System.String'),1,4) = '"& y &"' And [_Identify] <> " & Tables("订单").Current("_Identify")
msgbox(flt)
max = DataTables("订单").Compute("Max(订单ID)",flt) '取得相同年份的最大订单号
msgbox(max)
If max = "" Then
idx = 1 '顺序号等于1
Else
idx = CInt(max.SubString(1,5)) + 1
End If
txb.text = ddid & cstr(Format(idx,"00000"))
红色代码出错，提示：语法错误:“System”运算符后缺少操作数。
加好友 
发短信
Post By：2016/8/3 15:52:00 [显示全部帖子]
