主题：[求助][已解决]导入的同时将列格式化

Select Case e.DataCol.Name ' 格式化编号

    Case "编号"

        If e.newvalue IsNot Nothing Then

            e.DataRow("编号")=format(Val(e.newValue),"000000")

        End If

End Select