可变长度字段的前导零答案

【问题标题】：Leading Zeros for Variable Length Field可变长度字段的前导零
【发布时间】：2014-09-29 22:01:29
【问题描述】：

我有一个表单，要求用户在文本框中输入一些信息，然后是一些 VBA 代码来操作这些值并将它们输入到表格中。

其中一个文本框要求输入数字序列号。此序列号值的长度可以是四位或五位，并且它可以包含一个或多个前导零。例如0001 或 00758 或 0463。

一旦 VBA 代码将该值输入到表中，它就会循环遍历该值、递增它并创建另一个条目。重复此过程，直到所有序列号都添加到表中。我的序列号值取自在我的代码中声明为字符串的文本框，但它仍然会丢弃我的前导零。

【问题讨论】：

【解决方案1】：

我也遇到过类似的问题，使用 CStr() 强制字符串为我修复它。因此，类似于：sMyString = CStr(vUserValue) 而不是 sMyString = vUserValue。

此外，当您增加数字时，您可能会删除零。您可以使用以下内容重新添加它们：sMyString = String(5-len(sMyString),"0") & sMyString 其中 5 是原始位数。

sMyString = String(5-len(sMyString),"0") &amp; sMyString

【讨论】：