主题：[求助]关于查询效率方面的问题

 组合成条件直接查啊，查出说有数据后，想怎么处理就怎么处理啊

"第一例 in ('18','16','29')"

  汗

Dim filter As String = ""
Dim ls_source As new List(Of String)
For i As Integer = 1 To 7
    Dim val As String = e.Form.Controls("TextBox" & i).Text
    If val > "" Then
        filter &=  val & ","
        If ls_source.Contains(val) = False Then
            ls_source.Add(val)
        End If
    End If
Next

Dim str As String = ""
Dim ls As New List(of String)

Dim pname = ""
Dim temp = ""
Dim count As Integer
For Each dr As DataRow In DataTables("表A").SQLSelect("补助1 in (" & filter.Trim(",") & ")", "", "名称,时间")
    If dr("名称") <> pname Then
        If ls.Count = ls_source.Count Then
            str &= pname & "(" & temp & ")"
        End If
        ls.Clear
        pname = dr("名称")
        temp = ""
    End If
    If ls_source.Contains(dr("补助1")) Then
        If ls.Contains(dr("补助1")) = False Then
            ls.Add(dr("补助1"))
            temp &= dr("时间") & "|"
        End If
    End If
Next

e.Form.Controls("结果显示").Text = str