主题：快速清除指定区域内容

 由于需要清除的内容太多，设置快速清除代码，Syscmd.Edit.Delete()是系统命令，不能实现快速清除，以下代码该怎么修改才能实现目的

SystemReady = False
        'For i As Integer = CurrentTable.TopRow To CurrentTable.BottomRow
            'For n As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
           'msgbox(i,n)    
            'Next
        'Next
        '
        Syscmd.Edit.Delete()
        SystemReady = True

这样，必须注释掉 SystemReady = False

 

'SystemReady = False
CurrentTable.EditDelete
'SystemReady = True

如果需要systemready，必须一行一列地删除才行

我设定的表格是自动保存的，这样清除数据速度很慢，我是考虑把除清除以外的代码都停止运行，然后清除数据，再恢复代码运行

方法一：这样删除

 

For i As Integer = CurrentTable.TopRow To CurrentTable.BottomRow
    For n As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
        CurrentTable.Rows(i)(n) = Nothing
    Next
Next

方法二：用变量处理，如

 

vars("stop") = true

CurrentTable.EditDelete

vars("stop") = false

 

然后，在你的各个事件里面，判断 vars("stop") 的值，控制是否执行

如果使用类似方法粘贴时，被粘贴的值是空的，粘贴的列的是日期列就会出现下列错误，该怎么修改？

.NET Framework 版本：2.0.50727.8937
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
对于造型说明无效的字符值

 

不理解你的意思，请做一个例子发上来测试。