主题：生成查询条件的通用代码

该代码可根据当前打开的table列，自动生成查询条件。比如，table表有2列，就可以输入2列的查询关键字；有5列就可以输入5列的查询关键字。这样的通用代码，将使查询更加灵活。
以下图为例，如要查询叠次等于“B”、且叠名包含“休”字的记录，只要输入“B,休”即可。关键字之间用半角逗号分开；
如要查询叠名包含“休”字的全部记录，只要输入“,休”即可。这表明第一列没有输入关键字。

此主题相关图片如下：1.jpg

通用条件生成函数Filter的代码如下：

'生成可见的列名称
Dim Cols,Vals as New List(of String)
Dim txt As String = "A"             '加个A是为了便于替换
For Each c as Col in Args(0).Cols
    If c.Visible = True
        txt = txt & "," & c.name
    End If
Next
txt = txt.Replace("A,","")         '生成可见列名
'生成查询条件
Cols.AddRange(txt.Split(","))      '字段列表
Vals.AddRange(Args(1).Replace("'","''").Replace("*","[*]").Split(","))  '查询值列表并保证其有效
Dim flt As String = "A"            '加个A是为了便于替换
Dim i as Integer = 0
For Each Val as String in Vals
    If i < Cols.Count
        flt = flt & " and " & Cols(i) & " like '*" & Val & "*'"
    End If
    i = i + 1
Next
flt = flt.Replace("A and ","")
Return flt

调用方法，如：

'生成查询条件
Dim txt as String = Functions.Execute("Filter",Tables("窗口1_Table1"),e.Form.Controls("TextBox1").Text)
'执行查询
Tables("窗口1_Table1").Filter = txt

这是例子：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

但要注意，二楼的代码只能对字符型的列进行查询。如果你的列中有其它数据类型，需要在 If i < Cols.Count 里进行判断。如：
If  Args(0).Cols(i).DataCol.IsNumeric   '如果是数值型
If  Ars(0).Cols(i).DataCol.IsDate         '如果是日期型，等等。否则会出错的。

如果是数值型的列，可以这样：
把原来代码中的：flt = flt & " and " & Cols(i) & " like '*" & Val & "*'"  替换成：

        If Args(0).Cols(i).DataCol.IsNumeric and Trim(Val).length > 0 and Char.IsNumber(Val) Then
            flt = flt & " and " & Cols(i) & " = " & Val
        ElseIf Args(0).Cols(i).DataCol.IsString Then
            flt = flt & " and " & Cols(i) & " like '*" & Val & "*'"
        End If

第一行表示的意思是：
如果列类型为数值型：Args(0).Cols(i).DataCol.IsNumeric，而且
      输入的关键字不为空：Trim(Val).length > 0，而且
     输入的关键字也是数值型：Char.IsNumber(Val)

日期也很简单啊,无非再加上date的判断而已。
这个代码就是根据用户输入的查询关键字自动生成查询条件的，返回值就是一串字符。在filter里可以直接使用。

这个查询代码是按列顺序来的，如表中有A、B、C三列，输入的关键字是1,2,3，则自动查询A=1 and B=2 and C=3的记录。如果只输入了1，则只查A=1；如果输入了,1，则只查B=1。。。明白了吗？输入的关键字是和相应的列对应的。
你这个要求也很容易做到，无非是把每个列和关键字进行比较查询而已。