如何将数据库查询结果格式化为10位补0的固定长度字符串

问题原因 #

你代码中遍历row.ItemArray时直接将元素声明为String类型，而Format函数的0000000000是数值格式规则，仅对数值类型的入参生效，传入字符串时会直接返回原值，不会自动补前导零。

解决方法 #

有两种常用的实现方案：

• 方案1：先将字符串转为数值类型再调用Format
  把格式化代码改为：

  Format(CInt(cells), "0000000000")
  ' 如果ID数值超过Integer范围，改用Long类型
  ' Format(CLng(cells), "0000000000")
  

• 方案2：使用字符串的PadLeft方法直接补前导零（更推荐，无需类型转换）
  直接调用字符串的左填充方法，指定总长度为10，填充字符为0即可：

  cells.PadLeft(10, "0"c)
  

修正后的核心代码示例 #

Try
    Dim contenitore As DataTable = idClienteCosarConsorziati.Tables(0)
    For Each row As DataRow In contenitore.Rows
        For Each cells As String In row.ItemArray
            ' 可选增加非空和数字校验，避免运行时报错
            If Not String.IsNullOrEmpty(cells) AndAlso IsNumeric(cells) Then
                Dim stringtoserach As String = "E:\PDF_Fatture\" & cells.PadLeft(10, "0"c)
                ' 后续业务逻辑
            End If
        Next
    Next
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try

补充说明：VB中字符串拼接推荐用&而非+，避免数值类型隐式转换带来的异常。

内容的提问来源于stack exchange，提问作者Simone