设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 5334|回复: 10

[窗体] 组合框模糊查询求助

[复制链接]
发表于 2012-9-21 16:30:47 | 显示全部楼层 |阅读模式
本帖最后由 gzkrmch 于 2012-9-21 16:53 编辑

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


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2012-9-21 23:20:09 | 显示全部楼层
本帖最后由 roych 于 2012-9-21 23:21 编辑

这个只是选择多列显示而已,在组合框的来源里选择多个字段,在列数选择多列(默认为1列,附图为4列)。具体参数请参考附图:
(组合框的“来源”:查询设计图)

(组合框属性图)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2012-9-24 10:56:56 | 显示全部楼层
roych 发表于 2012-9-21 23:20
这个只是选择多列显示而已,在组合框的来源里选择多个字段,在列数选择多列(默认为1列,附图为4列)。具体 ...

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

描述不清,建议参考刘小军例子
 楼主| 发表于 2012-9-24 13:44:34 | 显示全部楼层
Henry D. Sy 发表于 2012-9-24 12:28
描述不清,建议参考刘小军例子

比如用我的例子,在商品名称组合框里,我输入一个"水"字,组合框里就对应查出"矿泉水"、“苏打水”带“水”的记录,或输入一个“面”字,组合框就查出“方便面”、“面包”带“面”字的记录
发表于 2012-9-24 14:29:08 | 显示全部楼层
gzkrmch 发表于 2012-9-24 13:44
比如用我的例子,在商品名称组合框里,我输入一个"水"字,组合框里就对应查出"矿泉水"、“苏打水”带“水”的 ...

你那个是绑定表的,如果输入的话,表记录就更改了。
发表于 2012-9-24 14:37:49 | 显示全部楼层

建议参考刘小军老师的实例 本论坛就有
 楼主| 发表于 2012-9-26 13:34:50 | 显示全部楼层
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
这是组合框的代码,不是绑定的啊
发表于 2012-9-26 14:11:18 | 显示全部楼层
gzkrmch 发表于 2012-9-26 13:34
Private Sub 商品名称_AfterUpdate()
  
  Me.商品编号 = Me.商品名称.Column(1)

??
 楼主| 发表于 2012-9-27 11:38:19 | 显示全部楼层
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

这是我从网上找到组合框模糊查询例子的代码,但这是只有一列字段的,像我的这个多列的字段怎么写
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 22:40 , Processed in 0.103417 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表