主题：加载外部SQL全部表

Dim lst As List(Of String)
lst = Connections("yb").GetTableNames
For Each nm As String In lst
    With DataTables(nm)
        .LoadFilter = "" 
        .LoadTop = 20
        .LoadPage = 0
        .Load()
    End With
Next

点击后没有反应的，哪里出了问题？？？

原来是加载过就不能再进行加载了

原来是我在前面使用动态加载，后面再进行全部加载没失效了