您正在 access911.net -> 静态资料库

Sub SampleFixedString()
    '运行示例

    '编号为54，完整的单据编号是5位，需要用0补足
    Debug.Print FixedString("54", 5, "0")

    '编号为6554，完整的单据编号是25位，需要用x补足
    Debug.Print FixedString("6554", 25, "x")
End Sub

Function FixedString(strString As String, intLen As Integer, strFillWord As String)
    '函数作用：     补足编号前面的零
    '作者：         access911
    '参数：
    '    strString      ，字符串，需要补足位数的单据编号
    '    intL.....................
...........

如何补足凭证编号前面的零？