主题：[原创]按时间段UNION不确定数量但相似表名SQL写法

你可以尝试在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

我来给你一段完整的，没有经过测试，请自行调试，但原理应该是通的：

假定你的数据源的链接名称为"nwnd"，从2009年5月到2010年10月的表：
 
Dim lst As List(Of String)

Dim ym1 As Integer = "生产记录200905"

Dim ym2 As Integer = "生产记录201010"

lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
     If nm>=ym1 AndAlso nm<=ym2 Then

        lst.Add(nm)

    End IF
Next

Dim SQL As String
For Each nm As String  In Lst
    If SQL > "" Then
        SQL = SQL & " UNION "
    End If
    SQL = SQL & "Select * From {"  & nm & "}"
Next
OutPut.Show("合成的SQL语句：" & SQL)

呵呵，是应该加上All，因为这里不需要排除重复。

1、变量定义错误，应该用String。

2、字符串其实也可以比较大小的。

如果你不通过，就改为用整数比较算了。

排除年表：

For Each nm1 As String In Lst1
    If nm1>=ym1 AndAlso nm1<=ym2 AndAlso nm1.Length = ym1.Length Then
        Lst2.Add(nm1)'
End IF

Tables("窗口2_Table1").Fill(SQL, "AsiaCardServera", True)

先

output.show(SQL)

从命令窗口将生成的SQL语句复制到SQL执行窗口执行，看看SQL语句有没有问题，如果有问题，看看问题在哪。

当然你得保证你的数据源名称或选定的数据源正确。