你可以尝试在foxtable中合成SQL语句,然后再执行:
例如:
Dim nms() As String = {"表A", "表B", "表C"}Dim SQL As String For Each nm As String In nms If SQL > "" Then SQL = SQL & " UNION " End If SQL = SQL & "Select * From {" & nm & "}"Next