我测试没有问题,代码是:
Select Case e.DataCol.name Case "第一列" If e.newvalue > "" Then e.DataRow("第一列")=format(Val(e.newValue),"000000") End IfEnd Select
请做个简单例子发上来,这样才能直达你的问题所在。