以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]合并Excel文件报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126355)

--  作者:一只田鸡
--  发布时间:2018/10/19 10:56:00
--  [求助]合并Excel文件报错
在设置按钮合并Excel文件时,出现如下错误,请大佬支招。图片点击可在新窗口打开查看
手动复制粘贴时,也会出现这种问题,

错误所在事件:表,Person,DataColChanging
详细错误信息:
调用的目标发生了异常。
从字符串“32092419780806483X”到类型“Boolean”的转换无效。
输入字符串的格式不正确。

Excel里的身份证号列单元格格式为文本格式;表Person的身份证号码列类型为字符型。

请问我该怎么修改代码:

Select Case e.DataCol.Name
    Case "PeIDNumber"
        If e.NewValue Then
            If ValidPIN(e.NewValue) = False
                MessageBox.show("身份证号码有误,请重新输入","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.warning)
            Else
            End If
        End If
End Select

--  作者:一只田鸡
--  发布时间:2018/10/19 10:58:00
--  
以下是引用一只田鸡在2018/10/19 10:56:00的发言:
在设置按钮合并Excel文件时,出现如下错误,请大佬支招。图片点击可在新窗口打开查看
手动复制粘贴时,也会出现这种问题,

错误所在事件:表,Person,DataColChanging
详细错误信息:
调用的目标发生了异常。
从字符串“32092419780806483X”到类型“Boolean”的转换无效。
输入字符串的格式不正确。

Excel里的身份证号列单元格格式为文本格式;表Person的身份证号码列类型为字符型。

请问我该怎么修改代码:

Select Case e.DataCol.Name
    Case "PeIDNumber"
        If e.NewValue Then
            If ValidPIN(e.NewValue) = False
                MessageBox.show("身份证号码有误,请重新输入","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.warning)
            Else
            End If
        End If
End Select

为什么会出现Boolean类型呢?


--  作者:有点蓝
--  发布时间:2018/10/19 11:16:00
--  
If e.NewValue Then
改为

If e.NewValue > "" Then