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

该代码可根据当前打开的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         '如果是日期型，等等。否则会出错的。

越来越觉得reachtone伟大!
方便了自己更方便了大家.

抛玉的作用，收藏
谢谢了，呵呵

顶个!