Office中国论坛/Access中国论坛

标题: 组合框模糊查询求助 [打印本页]

作者: gzkrmch 时间: 2012-9-21 16:30
标题: 组合框模糊查询求助
本帖最后由 gzkrmch 于 2012-9-21 16:53 编辑

我看了很多关于组合框模糊查询的例子,都是只查一个字段的,但像这样的怎么才能做出来
比如在商品名称里输入茶就可以查出各种茶
[attach]50435[/attach]

[attach]50434[/attach]

作者: roych 时间: 2012-9-21 23:20
本帖最后由 roych 于 2012-9-21 23:21 编辑

这个只是选择多列显示而已，在组合框的来源里选择多个字段，在列数选择多列（默认为1列，附图为4列）。具体参数请参考附图：
（组合框的“来源”：查询设计图）
[attach]50436[/attach]
（组合框属性图）
[attach]50437[/attach]

作者: gzkrmch 时间: 2012-9-24 10:56

roych 发表于 2012-9-21 23:20
这个只是选择多列显示而已，在组合框的来源里选择多个字段，在列数选择多列（默认为1列，附图为4列）。具体 ...

roych老师,我想要的是组合框模糊查询,用字段里相同的部分字符查出这个字段里含有相同字符的记录

作者: Henry D. Sy 时间: 2012-9-24 12:28

gzkrmch 发表于 2012-9-24 10:56
roych老师,我想要的是组合框模糊查询,用字段里相同的部分字符查出这个字段里含有相同字符的记录

描述不清，建议参考刘小军例子

作者: gzkrmch 时间: 2012-9-24 13:44

Henry D. Sy 发表于 2012-9-24 12:28
描述不清，建议参考刘小军例子

比如用我的例子,在商品名称组合框里,我输入一个"水"字,组合框里就对应查出"矿泉水"、“苏打水”带“水”的记录，或输入一个“面”字，组合框就查出“方便面”、“面包”带“面”字的记录

作者: Henry D. Sy 时间: 2012-9-24 14:29

gzkrmch 发表于 2012-9-24 13:44
比如用我的例子,在商品名称组合框里,我输入一个"水"字,组合框里就对应查出"矿泉水"、“苏打水”带“水”的 ...

你那个是绑定表的，如果输入的话，表记录就更改了。

作者: yanghua1900363 时间: 2012-9-24 14:37

建议参考刘小军老师的实例本论坛就有

作者: gzkrmch 时间: 2012-9-26 13:34

Henry D. Sy 发表于 2012-9-24 14:29
你那个是绑定表的，如果输入的话，表记录就更改了。

Private Sub 商品名称_AfterUpdate()

  Me.商品编号 = Me.商品名称.Column(1)
  'Me.商品名称 = Me.商品名称.Column(0)
  Me.品牌 = Me.商品名称.Column(2)
  Me.类别 = Me.商品名称.Column(3)
  Me.单位 = Me.商品名称.Column(4)
  Me.规格型号 = Me.商品名称.Column(5)

End Sub
这是组合框的代码,不是绑定的啊

作者: Henry D. Sy 时间: 2012-9-26 14:11

gzkrmch 发表于 2012-9-26 13:34
Private Sub 商品名称_AfterUpdate()

Me.商品编号 = Me.商品名称.Column(1)

？？

作者: gzkrmch 时间: 2012-9-27 11:38

Henry D. Sy 发表于 2012-9-26 14:11
？？

Option Compare Database
Private b

Private Sub 堆头陈列商品_Change()

Dim a As String
a = "*" & Me.堆头陈列商品.Text & "*"
Me.堆头陈列商品.RowSource = "SELECT 商品ID, 货品编号 FROM 商品目录 Where 货品编号 like '" & a & "';"
Me.堆头陈列商品.Dropdown
b = Me.堆头陈列商品.Column(0, 0)

End Sub

Private Sub 堆头陈列商品_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyUp, vbKeyDown
Me.堆头陈列商品.OnChange = ""
Case Else
Me.堆头陈列商品.OnChange = "[Event Procedure]"
End Select

End Sub

Private Sub 堆头陈列商品_NotInList(NewData As String, Response As Integer)

Dim ctl As Control
Set ctl = Me!堆头陈列商品
Response = acDataErrContinue
ctl.Undo
Me.堆头陈列商品 = b
Me.堆头陈列商品.RowSource = "SELECT 商品ID, 货品编号 FROM 商品目录;"
SendKeys ("{Tab}")

End Sub

这是我从网上找到组合框模糊查询例子的代码,但这是只有一列字段的,像我的这个多列的字段怎么写

作者: gzkrmch 时间: 2012-10-9 15:12
再次求助这个问题{:soso_e109:}

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