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

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

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

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

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

应该定义两个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,’月表

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

以下是引用狐狸爸爸在2010-12-13 15:24:00的发言：

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

排除年表：

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

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

请问红色部分代码有问题吗，怎么---------------------------
提示
---------------------------
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)

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

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