主题：字符转日期在高速合并导入时提示错误

Public pause As Boolean

2、然后在某事件的开始位置添加一段代码：（这一步我是在datacolchanged事件中将下面的代码添加到我之前代码的前端）

'判断是否执行事件:
If pause = True Then
    Return
End If
'原来事件代码

3、现在我们就可以为此事件设计开关了：（这一步我是在窗口管理中新增加了窗口，然后在其中增加了2个按钮来完成的）

关闭此事件的代码为：

pause = True

开启此事件的代码为：

pause = False

我在高速合并前点击了关闭按钮，然后导入就成功导入了，但再开户事件，重置列时，又弹出最先我提出的一样的错误信息。

我的代码已修改如下：

'判断是否执行事件:
If pause = True Then
    Return
End If
'原来事件代码

Select Case e.DataCol.Name

    Case "上班1打卡时间1"   '此列为字符型

        If e.DataRow.isnull("上班1打卡时间1") Then

            e.DataRow("上班1打卡日期时间") = Nothing      '此列为日期型

        Else

            If e.DataRow("上班1打卡时间1").contains("次日") Then

                e.DataRow("上班1打卡日期时间") = e.DataRow("日期2").AddDays(1) &" "& e.Datarow("上班1打卡时间1").Substring(3,5)

            Else

                e.DataRow("上班1打卡日期时间") = e.DataRow("日期2")&" "& Format(cdate(e.DataRow("上班1打卡时间1")),"t")

            End If

        End If

End Select