主题：请问，字符型的数字，怎么能通过补零，补齐位数

如12》》》0012

    13》    0013

     1》     0001

请教lindong老师：

Select Case e.DataCol.name
Case "第一列"
If e.NewValue <>"" Then
e.NewValue = Format("第一列","0000")
End If
End Select

出来的值是：0000

错在什么地方？

这段代码，问题在哪里，每次都得“列重置”才能显示案卷级档号和文件级档号，且要点击当前单元格后重置

Select Case e.DataCol.name
    Case "案卷号"
        If e.newvalue > "" Then
            e.DataRow("案卷号")=format(Val(e.newValue),"0000")
        End If
Case "案卷级档号"
If e.newvalue Is Nothing Then
e.DataRow("案卷级档号") = e.DataRow("全宗号")&"-"& e.datarow("案卷目录号")&"-"& e.DataRow("案卷号")
End If
Case "文件级档号"
If e.NewValue Is Nothing Then
e.DataRow("文件级档号") = e.DataRow("全宗号")&"-"& e.datarow("案卷目录号")&"-"& e.DataRow("案卷号") &"-"& e.DataRow("页号")
End If

End Select

可能是放在DataColChanged事件中出的问题