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

就是试过了不行才上来问得，在百度上也找了，在foxtable上也找了，无果。

测试不行，我有如下疑问：

Dim lst As List(Of String)

Dim ym1 As Integer = "生产记录200905"‘这里应该是String才对

Dim ym2 As Integer = "生产记录201010"  ‘这里应该是String才对

lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
     If nm>=ym1 AndAlso nm<=ym2 Then  ‘String应该不能用>=或则<=号吧，但我不知道如何写，用  like '生产记录%' ?

        lst.Add(nm)

    End IF
Next

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

字符串的确可以比较大小，学习了。

应该定义两个lst,

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

        lst.Add(nm)

这个得到的永远是数据源所有的表名称

Dim Lst1 As List(Of String)
Dim Lst2 As New List(of String)
Dim ym1 As Integer = "生产记录200905"

Lst1 = Connections("AsiaCardServera").GetTableNames
For Each nm1 As String In Lst1
    If nm1>=ym1 AndAlso nm1<=ym2 Then
        Lst2.Add(nm1)'
End IF
Next
Dim SQL As String
For Each nm2 As String  In Lst2
    If SQL > "" Then
        SQL = SQL & " UNION ALL "
    End If
    SQL = SQL & "Select * From {"& nm2 &"}"
Next
OutPut.Show("合成的SQL语句:" & SQL)

OutPut.Show到是可以了，

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

好像不行。

麻烦再指点一下。

还有字符串比较中如何排除年表

生产记录2008,’年表

生产记录2009,’年表

生产记录2010,’年表

生产记录201009,’月表

生产记录201010,’月表

生产记录201011,’月表

生产记录201012,’月表

生产记录201101,’月表

生产记录201102,’月表

..............

不错，的确很神奇。哈哈，谢谢了。

请问红色部分代码有问题吗，怎么---------------------------
提示
---------------------------
Select语句执行错误，请检查语法及数据源设置。
---------------------------
确定  
---------------------------

Dim Lst1 As List(Of String)
Dim Lst2 As New List(of String)
Dim ym1 As String = "生产记录200901"
Dim ym2 As String = "生产记录201212"
Lst1 = Connections("AsiaCardServera").GetTableNames
For Each nm1 As String In Lst1
If nm1>=ym1 AndAlso nm1<=ym2 AndAlso nm1.Length = ym1.Length Then
        Lst2.Add(nm1)'
End IF
Next
Dim SQL As String
For Each nm2 As String  In Lst2
    If SQL > "" Then
        SQL = SQL & " UNION ALL "
    End If
    SQL = SQL & "Select * From {"& nm2 &"}"
Next

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

还是同样提示：---------------------------
提示
---------------------------
Select语句执行错误，请检查语法及数据源设置。
---------------------------
确定  
---------------------------

好方法！找到了问题。

其中有一张最早的表比其他表多几个字段。刚才执行的时候刚好有这张表在其中，所以出现：

---------------------------
提示
---------------------------
Select语句执行错误，请检查语法及数据源设置。
---------------------------
确定  
---------------------------

按照你的方法，SQL执行窗口执行提示：

包含 UNION 运算符的 SQL 语句中的所有查询都必须在目标列表中具有相同数目的表达