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

但要注意，二楼的代码只能对字符型的列进行查询。如果你的列中有其它数据类型，需要在 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。。。明白了吗？输入的关键字是和相应的列对应的。
你这个要求也很容易做到，无非是把每个列和关键字进行比较查询而已。