本地access数据库'------ 改变表的数据源不加载数据-----
Dim nm As String = args(0) '---表名称--
Dim dtconn As String = args(1) '---数据源名称
Dim yn As Boolean = args(2) '---是否加载数据
Dim filter As String = args(3) '---加载数据条件,根据不同的数据源设置条件,如果为空加载所有数据
If DataTables.Contains(nm) = False Then
DataTables.Load(nm) '------加载此表不加载数据,在加载外部表时设置的条件为准,一般不加载数据---
End If
DataTables(nm).StopRedraw
If yn = True '---是否加载数据---
DataTables(nm).LoadFilter = filter '---加载数据源中所有数据
Else
filter = "[_identify] is null"
DataTables(nm).LoadFilter = filter '---加载数据源中所有数据
End If
DataTables(nm).ChangeConnection(dtconn)
DataTables(nm).ResumeRedraw
加好友 
发短信
Post By：2017/5/22 17:52:00 [只看该作者]
