执行下面代码,弹出什么?你的加载条件有问题。
msgbox(_Filter_)
DataTables("市政交通工程").LoadFilter = ""DataTables("市政交通工程").Load