主题：字符型列输入数字不够4位前面自动添加0

如题，现试了试

if e.datacol.name = "那一列"     e.datarow("那一列") =  format(e.datarow("那一列") ，"000000") end if

返回全是0

下面的方法不好用，我这列数据要和前面的列的数据连接的

老师帮帮忙！

狐狸爸爸给的代码，输入字符后直接退出了

LSY 老师给的我输入3位数的时候提示.NET Framework 版本：2.0.50727.3649
Foxtable 版本：2013.9.22.1
错误所在事件：表，表B，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Public member 'PadLeft' on type 'Integer' not found.

DataColChanged写入的这个事件

呵呵，忘了改回来，可以了谢谢

老师刚发现一个问题，因为这个是试样号：比如1234 可是如果有不合格现象就要变成1234-1再次不合格就变成1234-2上面的代码要出错，这个问题刚没考虑到，这样有办法没有？

这个不需要判断，就是这个编号列的值有可能变成1234-1，上面的代码就提示错误

.NET Framework 版本：2.0.50727.3649
Foxtable 版本：2013.10.14.1
错误所在事件：表，试样台账，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Conversion from string "2415-1" to type 'Integer' is not valid.
Input string was not in a correct format.

谢谢老师，刚发现一个问题，在项目属性里输入的：

With CurrentTable
    Dim Str1 As String = "用户: " & User.Name
    Str1 = Str1 & " 表名: " & .Name
    Str1 = Str1 & "   欢迎使用质检数据库系统!    "
    StatusBar.Message1 = Str1
End With

发布后，消失了...我哪里没设置好吗？