主题：[求助]报错：索引和长度必须引用该字符串内的位置

'……………以下是自动生成工号…………………………
Dim i As String = DataTables("日志").Compute("max(序号)")
Dim idx As Integer
If i > "" Then    '若有最大值,即表数据不为空
    idx = CInt(i.SubString(2,3)) + 1   '提取字符串i里的数字,并加1
Else
    idx = 1   '若表数据为空 就=1
End If
Tables("日志").Current("序号") = "" & Format(idx,"000")

此主题相关图片如下：tim截图20191218141216.png

If i > "" Then    '若有最大值,即表数据不为空
    idx = CInt(i) + 1   '提取字符串i里的数字,并加1
Else
    idx = 1   '若表数据为空 就=1
End If

 谢谢！