Dim bh As String = qz & rq
Dim zd As Integer = bh.Length
Dim idx As Integer
Dim max As String
max = DataTables("内包编码_明细表").Compute("max(内包编号)","内包编号 like \'" & bh & "*\'")
If max > ""  Then
    idx = cint(max.Substring(zd,jm)) + 1 \'CK140611 001
Else
    idx = 1
End If

以上代码运行正常,但若改成SQLCompute运行就不正常了,未取到max值,监控值为空.

Dim bh As String = qz & rq
Dim zd As Integer = bh.Length
Dim idx As Integer
Dim max As String
max = DataTables("内包编码_明细表").SQLCompute("max(内包编号)","内包编号 like \'" & bh & "*\'")
If max > ""  Then
    idx = cint(max.Substring(zd,jm)) + 1 \'CK140611 001
Else
    idx = 1
End If

我想从后台取最大编号,DataTables我不想加载所有数据. 如果DataTables不加载所有数据,则从DataTables取最大值是否会有逻辑错误,

到底是从DataTables取值还是要从后台取值比较纠结.(注实例为ACCESS数据库)

谢谢 解决.  保存是必须的