Dim max As String
Dim idx As Integer
max = DataTables("wtxyd").sqlCompute("max(wtdh)", "wtrq >= '" & jt1 & "' and wtrq < '" & jt2 & "' and khlx = '海吉星自主送检'")
---请问在这个基础上怎么添加一个条件,使得搜查的结果只是在wtdh字段中只是12个字符的,不搜查其他字符长度的结果
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If