主题：关于字符串中找最大数

DoubleClick事件

Dim max As String = e.Table.DataTable.Compute("max(第一列)")
If max = "" Then
    e.Row("第一列") = "QC-LL" & format(1, "0000000")
Else
    e.Row("第一列") = "QC-LL" & format(cint(max.SubString(5)) + 1, "0000000")
End If