主题：加载表有卡顿，能否帮忙优化一下呢

 Dim st1() As String =Args(0) '表名称
Dim Filter() As String =Args(1) '条件列名称
For c As Integer =0 To st1.Length -1
    If  DataTables(st1(c)).Find(Filter(c)) IsNot Nothing Then 
        DataTables(st1(c)).RemoveFor(Filter(c))
    End If
    DataTables(st1(c)).AppendLoad(Filter(c))
    Tables(st1(c)).Filter =Filter(c)

这个基本没有办法。做个加载提示窗口吧：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=152101&replyID=&skin=1