Office中国论坛/Access中国论坛

标题: 如何实现颠倒顺序的查询？ [打印本页]

作者: goto2008 时间: 2008-4-18 11:49
标题: 如何实现颠倒顺序的查询？
我下载了个例子，但发现这个例子不对劲。。。
从左边字段到右边。输入：广东飘柔 -----是没事
但是反过来输入：飘柔广东 -----就不行了。。

为什么会这样了，我想实现，不管怎么颠倒顺序，，都可以查询出含有广东或飘柔的记录出来

要如何修改？请各们大哥指点一下

[ 本帖最后由 goto2008 于 2008-4-18 12:01 编辑 ]

作者: goto2008 时间: 2008-4-18 12:04
想实现，类似百度那样查询
呵呵

作者: andymark 时间: 2008-4-18 12:05
这个也应可以容易实现
先吃饭啦等会再试试

作者: andymark 时间: 2008-4-18 13:59

Dim StrWhere As String
Dim StrWords() As String
Dim i As Integer

StrWords() = Split(inp, " ")

For i = 0 To UBound(StrWords)

StrWhere = StrWhere & "[客户] & [合同号] & [产品名称] & [数量]" & " Like '*" & StrWords(i) & "*' and "
Next

If Len(StrWhere) > 0 Then
StrWhere = Left(StrWhere, Len(StrWhere) - 5)
End If

result.RowSource = "SELECT 订单.id, 订单.客户, 订单.合同号, 订单明细.产品名称, 订单明细.数量, [客户] & [合同号] & [产品名称] & [数量] AS 合并 FROM 订单 INNER JOIN 订单明细 ON 订单.id = 订单明细.上级id WHERE " & StrWhere

作者: goto2008 时间: 2008-4-18 14:26
谢谢andymark 大哥。。。要的就是这个效果

作者: goto2008 时间: 2008-4-18 16:38
这个列表框的行来源是同一个表“帮面指令表”。。
我查询不了结果。。请教要怎么改代码？

Private Sub 查询_Click()
Dim StrWhere As String
Dim StrWords() As String
Dim i As Integer
StrWords() = Split(inp, " ")
For i = 0 To UBound(StrWords)
StrWhere = StrWhere & "[ID] & [帮面ID] & [下单日期] & [出货日期] & [订单号] & [货号] & [组别] & [数量] & [备注]" & " Like '*" & StrWords(i) & "*' and "
Next
If Len(StrWhere) > 0 Then
StrWhere = Left(StrWhere, Len(StrWhere) - 5)
End If
result.RowSource = "SELECT 帮面指令表.ID, 帮面指令表.帮面ID, 帮面指令表.下单日期, 帮面指令表.出货日期, 帮面指令表.订单号, 帮面指令表.货号, 帮面指令表.组别,帮面指令表.数量, 帮面指令表.备注, [ID] & [帮面ID]& [下单日期] & [出货日期] & [订单号] & [货号] & [组别] & [数量]& [备注] AS 合并 FROM 帮面指令表 'INNER JOIN 订单明细 ON 订单.id = 订单明细.上级id WHERE " & StrWhere
End Sub

作者: laiguiyou 时间: 2008-4-18 17:19
Private Sub 查询_Click()
Dim StrWhere As String
Dim StrWords() As String
Dim i As Integer

StrWords() = Split(inp, " ")

For i = 0 To UBound(StrWords)

StrWhere = StrWhere & "[ID] & [帮面ID] & [下单日期] & [出货日期] & [订单号] & [货号] & [组别] & [数量] & [备注]" & " Like '*" & StrWords(i) & "*' and "
Next

If Len(StrWhere) > 0 Then
StrWhere = Left(StrWhere, Len(StrWhere) - 5)
End If

List0.RowSource = "SELECT 帮面指令表.ID, 帮面指令表.帮面ID, 帮面指令表.下单日期, 帮面指令表.出货日期, 帮面指令表.订单号, 帮面指令表.货号, 帮面指令表.组别,帮面指令表.数量, 帮面指令表.备注,[ID] & [帮面ID]& [下单日期] & [出货日期] & [订单号] & [货号] & [组别] & [数量]& [备注] AS 合并 FROM 帮面指令表 WHERE " & StrWhere

End Sub

作者: goto2008 时间: 2008-4-18 17:52
laiguiyou大哥，查询按扭是没问题了。。

就是清空按扭。。。。。倒是有问题了。。它把列表框全清空了。晕

作者: laiguiyou 时间: 2008-4-18 18:22
如果清空后要显示全部数据，可以把列表的数据源改一下就可以了。就不要带条件了
Private Sub 清空_Click()
inp = ""
List0.RowSource = "SELECT 帮面指令表.* FROM 帮面指令表 "
End Sub

作者: goto2008 时间: 2008-4-18 19:36
谢谢laiguiyou [:50]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)