如何实现颠倒顺序的查询？

goto2008

我下载了个例子，但发现这个例子不对劲。。。
从左边字段到右边。输入：广东 飘柔           -----是没事
但是反过来输入：飘柔 广东                         -----就不行了。。

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

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

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

goto2008

想实现，类似百度那样查询
呵呵

andymark

这个也应可以容易实现
先吃饭啦 等会再试试

andymark

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

谢谢andymark 大哥。。。要的就是这个效果

goto2008

这个列表框的行来源是同一个表“帮面指令表”。。
我查询不了结果。。请教要怎么改代码？


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

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

laiguiyou大哥，查询按扭是没问题了。。

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

laiguiyou

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

goto2008

谢谢laiguiyou    [:50]