主题：[求助]最大编号的问题。

 你要把所有两位的改成3位的才行。

 For Each dr As DataRow In DataTables("表A").Select("")
    If dr.IsNull("第一列") = False AndAlso dr("第一列").Length = 8 Then
        dr.Locked = not dr.Locked
        dr("第一列") = dr("第一列").Substring(0,6) & "0" & dr("第一列").Substring(6,2)
        dr.Locked = not dr.Locked
    End If
Next