主题：代码

Dim num As Integer = 30
Dim tns() As String = {"庆前", "前列"}
For Each tn As String In tns
    Dim dt As DataTable = DataTables(tn)
    Dim q As new QueryBuilder
    q.TableName = "查询_" & tn
    Dim sql As String = ""
    For Each dc As DataCol In dt.DataCols
        If dt.Find(dc.name & " = '" & num & "'") IsNot Nothing Then
            sql &= "," & dc.name
        End If
    Next
    q.SelectString = "Select 一,二,三" & sql & " From {" & dt.Name & "}"
    q.Build
    MainTable = Tables(q.TableName)
Next

请问上述代码查询出来的行数出现了改变怎么办，我是要将含有“30”的列按照原来的顺序列到查询表中。

一个按钮为Dim ary() As String = {"庆一三四", "一三四列"}

For Each tn As String In ary

    DataTables(tn).StopRedraw

    For Each dc As DataCol In DataTables(tn).DataCols

        If dc.Name.StartsWith("庆") AndAlso dc.name.Length = 7 Then

            Dim str As String = dc.Name.Replace("庆", "")

            Dim idx As Integer = 1

            For Each r As Row In Tables(tn).rows

                If str.IndexOf(r("一")) >= 0 AndAlso str.IndexOf(r("四")) >= 0 AndAlso str.IndexOf(r("三")) >= 0 Then

                    r(dc.name) = "√"

                    idx = 1

                Else

                    r(dc.name) = idx

                    idx = idx + 1

                End If

            Next

        End If

    Next

    DataTables(tn).ResumeRedraw

Next

另一个按钮为

Dim ary() As String = {"庆一二四", "一二四列"}

For Each tn As String In ary

    DataTables(tn).StopRedraw

    For Each dc As DataCol In DataTables(tn).DataCols

        If dc.Name.StartsWith("庆") AndAlso dc.name.Length = 7 Then

            Dim str As String = dc.Name.Replace("庆", "")

            Dim idx As Integer = 1

            For Each r As Row In Tables(tn).rows

                If str.IndexOf(r("一")) >= 0 AndAlso str.IndexOf(r("二")) >= 0 AndAlso str.IndexOf(r("四")) >= 0 Then

                    r(dc.name) = "√"

                    idx = 1

                Else

                    r(dc.name) = idx

                    idx = idx + 1

                End If

            Next

        End If

    Next

    DataTables(tn).ResumeRedraw

Next

如何将这两个按钮合并为一个按钮来执行