学会调试
If dr1 IsNot Nothing Then
dr1= dt.DataRows(dt.DataRows.Count - 1) '获得最后一行
output.show(dr1("_Identify"))
cmd.CommandText = "sele ct Max(编号) from 台账 where 分类代码 = '" & lb & "' And [_Identify] <> " & dr1("_Identify")
Dim max As String
max = cmd.ExecuteScalar()
msgbox(max )
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(max.length - 3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
msgbox(idx )
dr("编号")=lb & Format(idx,"000")
Else
idx = 1 '否则顺序号等于1
dr("编号")=lb & Format(idx,"000")
End If
msgbox(dr("编号"))
dr.Save
End If
加好友 
发短信
Post By：2022/12/15 9:07:00 [显示全部帖子]
