自动编号VB请帮帮我 [英] Auto number VB please help me

问题描述

请帮我在VB中制作自动编号？

please help me to make autonumber in VB ?

推荐答案

这是我为Client_ID做的方式..

This is the way i did for Client_ID..

Public Sub generateid()
    Dim i As Integer
    i = 1
    If rs.State = 1 Then rs.Close
    rs.Open "clientdetails", admincon, adOpenDynamic, adLockOptimistic
    Do While Not rs.EOF
       rs("Client_ID") = i
       rs.Update
       i = i + 1
       rs.MoveNext
    Loop 
End Sub

这篇关于自动编号VB请帮帮我的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！