如个能在vb当中实现这样的加法运算！

Question

当我点击保存按钮的时候，保存一条数据到数据库然后取出数据库重最大的记录编号
然后+1但是这个记录编号是要求这样
从0001开始-9999我不知道应该怎么写才能达到这样的效果大家指点一下！
谢谢了！

Answer 1

定义成VARCHAR类型
取出来转化成  cint 加一 在 FORMAT成 5位字符串

Answer 2

txtSQL = "select count(*) as id from gsinfo"
Set mrc = ExecuteSQL(txtSQL, MsgText)
qyno1 = mrc.Fields("id").Value
MsgBox qyno1, vbOKOnly + vbExclamation, "提示！"
'qyno2=
'For qyno1 = qyno1 To 9999
'qyno1 = qyno1 + 1
If qyno1 < 10 Then
qyno1 = "000" & qyno1
ElseIf qyno1 > 10 And qyno1 <= 99 Then
qyno1 = "00" & qyno1
ElseIf qyno1 > 99 Then
qyno1 = "0" & qyno1
End If
'Next qyno1
MsgBox qyno1, vbOKOnly + vbExclamation, "提示！"我这样写
为什么没有再我的qyno1前面加上我想要的0

Answer 3

dim qynol as string
If cint(qyno1) < 10 Then
qyno1 = "000" & qyno1
ElseIf cint(qyno1) > 10 And cint(qyno1) <= 99 Then
qyno1 = "00" & qyno1
ElseIf cint(qyno1) > 99 Then
qyno1 = "0" & qyno1
End If获得使用两个变量,一个字符串,一个整型

Answer 4

Private Sub Form_Load()
    MsgBox LongToString(1, 5)
End SubPublic Function LongToString(ByVal lngInput As Long, ByVal intLength As Integer) As String
    Dim strRet As String
    Dim i As Integer
    
    If Len(CStr(lngInput)) >= intLength Then
        strRet = CStr(lngInput)
    Else
        strRet = String(intLength - Len(CStr(lngInput)), "0") & CStr(lngInput)
    End If
    
    LongToString = strRet
End Function

Answer 5

上面这个函数中的变量可以省略：
Private Sub Form_Load()
    MsgBox LongToString(1, 4)
End SubPublic Function LongToString(ByVal lngInput As Long, ByVal intLength As Integer) As String
    If Len(CStr(lngInput)) >= intLength Then
        LongToString = CStr(lngInput)
    Else
        LongToString = String(intLength - Len(CStr(lngInput)), "0") & CStr(lngInput)
    End If
End Function