主题：[求助]华海仓库的报表查询窗口的问题！

其报表查询 窗口的 查询按钮有段代码

With e.form
    Dim sql,str1,str2,str3,kz As String
    kz = "TextBox4,ComboBox4,ComboBox3,ComboBox5,ComboBox6,TextBox1,TextBox3,DateTimePicker1,DateTimePicker2"
    str1 = "单号='@$0',类型= '@$1',仓库= '@$2',供应单位= '@$3',经办人= '@$4',货品编码 = '@$5',部门= '@$6',日期 >= #@$7#,日期 <= #@$8#"
    Dim i As Integer
    For Each k As String In kz.split(",")
        If .Controls(k).Value IsNot Nothing Then
            If i=0 And .Controls("CheckBox1").Checked Then
                sql = sql & " AND " & str1.split(",")(i).Replace("='@$" & i," like '%" & .Controls(k).Value & "%")
            Else
                sql = sql & " AND " & str1.split(",")(i).Replace("@$" & i,.Controls(k).Value)
            End If
        End If
    i += 1
    Next
    Dim cmd As New SQLCommand
    cmd.C
    Dim dst As Table = Tables("窗口1_Table7")   
    cmd.CommandText = Vars("str2").Replace("@#$",sql)
    dst.DataSource  = cmd.ExecuteReader()
    For i=1 To dst.count
        Dim dr As Row = dst.Rows(i-1)
        dr("序号") = "" & i
    Next
    dst.AutoSizeCols()
End With

其它都懂 就偏偏这个 str2 百思不得其解  哪里定义的？  照字面意思 cmd.CommandText = Vars("str2").Replace("@#$",sql)  是做筛选用的  类似于 select 

这怎么弄的 最后和select一样的效果！

没有的把 全局变量 我没查到有！

全局变量除了通过菜单定义，也可以通过代码增加的。

作者代码里  有170个str2

头都晕了 不知道是哪个~