主题：一次性删除表中所有行的代码优化

最简单的代码：

DataTables("A").DataRows.Clear()

 

另外建议看看这个：

http://www.foxtable.com/help/topics/0453.htm

 

1、同样的代码，加上这两行，会提速很多：

 

Dim sj As Date =Date.now
Tables("表A").StopRedraw
For Each dr As DataRow In DataTables("A").DataRows
    For i As Integer =Tables("A").Rows.count-1 To 0 Step -1
        DataTables("A").DataRows(i).delete
    Next
Next
Tables("表A").ResumeRedraw
output.show((Date.now-sj).Totalseconds)

2、

 

Dim sj As Date =Date.now
With Tables("表A")
    .Select(0, 0, .Rows.Count - 1, .Cols.Count - 1)
End With
Sendkeys.send("{ENTER}")
Syscmd.Row.delete()
output.show((Date.now-sj).Totalseconds)

从你原来的56秒多到7秒多，已经提速很多了，这个例子是告诉你批量操作的时候要注意什么。