根定指定列名进行查询内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我想在内容处输入列名，查询条件输入内容，点击条件筛选时我想在项目编码中查询结果，如果内容为项目名称，则在项目名称列中查询，现在代码如下：

Dim Filter As String

With e.Form.Controls("项目编码1")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "项目编码 = '" & .Value & "'"

End If

End With

With e.Form.Controls("预计开始日期1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "预计开始日期 >= '" & .Value & "'"

End If

End With

With e.Form.Controls("预计结束日期1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "预计开始日期 < '" & .Value.adddays(1)& "'"

End If

End With

With e.Form.Controls("项目名称1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "项目名称 like '%" & .Value & "%'"

End If

End With

If Filter >"" Then

e.Form.controls("项目总表").Table.DataTable.LoadPage = 0

e.Form.controls("项目总表").Table.DataTable.LoadFilter = Filter

e.Form.controls("项目总表").Table.DataTable.Load

End If

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

主题：根定指定列名进行查询内容