以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助][已解决]导入的同时将列格式化  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38675)

--  作者:wxfjamdc
--  发布时间:2013/8/4 3:55:00
--  [求助][已解决]导入的同时将列格式化
现在的
datacolchanged
代码是
e.DataRow("编号")=format(Val(e.newValue),"000000")

用高速合并数据的时候输出的编号值都是000000,求解

文件在5楼
[此贴子已经被作者于2013-8-4 23:34:44编辑过]

--  作者:wxfjamdc
--  发布时间:2013/8/4 13:44:00
--  
这就沉到第二页了,没有答案吗?图片点击可在新窗口打开查看
--  作者:lsy
--  发布时间:2013/8/4 14:03:00
--  

要想早点得到答案,就把你做的小例子,传上来,别人测试一下,为什么不行,怎么修改。

你就这样一句话,要么没人理解,要么人家时间紧。


--  作者:有点酸
--  发布时间:2013/8/4 15:14:00
--  

我测试没有问题,代码是:

 

Select Case e.DataCol.name
    Case "第一列"
        If e.newvalue > "" Then
            e.DataRow("第一列")=format(Val(e.newValue),"000000")
        End If
End Select

 

请做个简单例子发上来,这样才能直达你的问题所在。


--  作者:wxfjamdc
--  发布时间:2013/8/4 21:15:00
--  
这是例子的文件,和高速合并的文件。
提示调用的目标发生错误
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.table
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.xls



--  作者:有点甜
--  发布时间:2013/8/4 21:29:00
--  
 改成这样

Select Case e.DataCol.Name \' 格式化编号
    Case "编号"
        If e.newvalue IsNot Nothing Then
            e.DataRow("编号")=format(Val(e.newValue),"000000")
        End If
End Select

--  作者:wxfjamdc
--  发布时间:2013/8/4 22:49:00
--  
好了,谢谢
再问下,什么时候 用 IsNot Nothing 什么时候用 运算符啊

--  作者:有点甜
--  发布时间:2013/8/4 23:04:00
--  
以下是引用wxfjamdc在2013-8-4 22:49:00的发言:
好了,谢谢
再问下,什么时候 用 IsNot Nothing 什么时候用 运算符啊


判断字符是否为 空值 的时候就用 是否等于nothing。