你弹出loadFilter看看
msgbox(DataTables("表A").LoadFilter)
如果条件正确,然后执行这样的代码
DataTables("表A").LoadTop = ""
DataTables("表A").LoadPage = 0
DataTables("表A").LoadOver = "_Identify"
DataTables("表A").Load