| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]模糊查找问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69845) |
| -- 作者：青鸟 -- 发布时间：2015/6/11 17:59:00 -- [求助]模糊查找问题 我在查询中写了一段代码，希望能实现模糊查找，红色代码段中的 Like 只能实现 = 的功能，而不能实现 Like 的功能，即在 "TextBox1" 中输入的内容与表字段中的内容完全匹配时，Flt发生作用，部分匹配时则 Flt 无效，请教： Dim Flt As String With e.Form.Controls("DateTimePicker1") If .Value IsNot Nothing Then If Flt >"" Then Flt = Flt & " And " End If Flt = Flt & "[签约日期] >= #" & .Value & "#" End If End With With e.Form.Controls("DateTimePicker2") If .Value IsNot Nothing Then If Flt >"" Then Flt = Flt & " And " End If Flt = Flt & "[签约日期] <= #" & .Value & "#" End If End With With e.Form.Controls("TextBox1") If .Value IsNot Nothing Then If Flt >"" Then Flt = Flt & " And " End If Flt = Flt & "[合同or费用名称] Like \'" & .Text & "\' Or [合同or费用对象简称] Like \'" & .Text & "\'" msgbox(Flt) End If End With \'分组统计 Dim g As New GroupTableBuilder("项目合同费用查询", DataTables("合同or费用台账")) g.Caption = "项目合同费用查询" g.Groups.AddDef("项目代码", "项目") g.Groups.AddDef("子项目代码", "子项目") g.Groups.AddDef("签约日期", DateGroupEnum.Year, "年") g.Groups.AddDef("费用分期") g.Groups.AddDef("签约日期", DateGroupEnum.None) g.Groups.AddDef("合同or费用对象简称", "合同or费用对象") g.Groups.AddDef("四级费用类别", "合同or费用内容") g.Totals.AddDef("合同or费用编号", AggregateEnum.Count, "合同or费用数量") g.Totals.AddDef("合同or费用总额", "合同or费用金额") g.GrandProportion = True g.Decimals = 2 g.Filter = Flt g.Build() MainTable = Tables("项目合同费用查询") |
| -- 作者：大红袍 -- 发布时间：2015/6/11 18:04:00 -- Flt = Flt & "[合同or费用名称] Like \'%" & .Text & "%\' Or [合同or费用对象简称] Like \'%" & .Text & "%\'" |
| -- 作者：青鸟 -- 发布时间：2015/6/11 18:33:00 -- 谢谢！ |