Else idx = 1 '否则顺序号等于1 End If dre("单位编号") = lb.ToUpper() & Format(idx,"00") End If
‘这里添加同步到金碟中的代码
End If '------------------------------------------自动生成单位编号---结束---------------------
End If