- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 字符转换 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171982)
-- 发布时间：2021/9/16 16:53:00
-- 字符转换
如图，我想把宽的数值转换成编号列那样，编号列保留5位，末尾必须是0，前面不够位补充0，怎么实现？
此主题相关图片如下：3.png
-- 发布时间：2021/9/16 17:02:00
--
Dim i As Integer = 900
Dim s As String = i & "0"
s = s.PadLeft(5,"0")
msgbox(s)
-- 发布时间：2021/9/16 19:30:00
--
谢谢