ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 7615|回复: 34

[求助] LISTVIEW双条件查询

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-3-22 16:49 | 显示全部楼层 |阅读模式
我想在电镀单价查询窗体中,下拉框中选定电镀厂就能自动筛选,关键字哪里就是模糊查找,
QQ截图20120322164147.png
QQ截图20120322164121.png

开单系统.zip

43.21 KB, 下载次数: 139

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-3-22 17:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
哪位高手帮我一下啊

TA的精华主题

TA的得分主题

发表于 2012-3-22 18:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
在哪一列模糊查找?

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-3-22 18:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
dragonthree 发表于 2012-3-22 18:49
在哪一列模糊查找?

在第5列到13列啊

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-3-22 18:51 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
我刚才修改了一下代码,但还是运行不了,谁帮忙一下修改一下啊{:soso_e181:}{:soso_e183:}

开单系统.zip

39.8 KB, 下载次数: 91

TA的精华主题

TA的得分主题

发表于 2012-3-22 18:53 | 显示全部楼层
yang2008ilove 发表于 2012-3-22 18:50
在第5列到13列啊

不明白,是以货号还是以什么查找?

TA的精华主题

TA的得分主题

发表于 2012-3-22 18:56 | 显示全部楼层
Private Sub ComboBox1_Change()
Dim mSQL$
    Dim Conn, RST
    Dim y&, x&
    On Error Resume Next
    x = Sheet2.[a65536].End(xlUp).Row
    If ComboBox1.Text <> "" Then mSQL = "select 日期,客户,货号,名称及规格,颜色,单位,单价 from[数据明细$a2:l" & x & "] where 客户 = '" & ComboBox1.Text & "' "
    If mSQL = "" Then Exit Sub
    Set RST = CreateObject("Adodb.Recordset")
    Set Conn = CreateObject("adodb.connection")
    Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    RST.Open mSQL, Conn, 1, 1
    ListView1.ListItems.Clear
    For y = 1 To RST.RecordCount
        Me.ListView1.ListItems.Add , , RST("日期")
        Me.ListView1.ListItems(y).SubItems(1) = RST("客户")
        Me.ListView1.ListItems(y).SubItems(2) = RST("货号")
        Me.ListView1.ListItems(y).SubItems(3) = RST("名称及规格")
        Me.ListView1.ListItems(y).SubItems(4) = RST("颜色")
        Me.ListView1.ListItems(y).SubItems(5) = RST("单位")
        Me.ListView1.ListItems(y).SubItems(6) = RST("单价")
        RST.MoveNext
   Next
   RST.Close: Conn.Close
   Set RST = Nothing: Set Conn = Nothing

End Sub
Private Sub UserForm_Initialize()
Dim i&
With ListView1
   .ColumnHeaders.Add , , "   日期", Width / 8
   .ColumnHeaders.Add , , "客户", Width / 9, lvwColumnCenter
   .ColumnHeaders.Add , , "货号", Width / 10, lvwColumnCenter
   .ColumnHeaders.Add , , "名称及规格", Width / 5, lvwColumnCenter
   .ColumnHeaders.Add , , "颜色", Width / 6, lvwColumnCenter
   .ColumnHeaders.Add , , "单位", Width / 12, lvwColumnCenter
   .ColumnHeaders.Add , , "单价", Width / 7, lvwColumnCenter
   .View = lvwReport
   .Sorted = True
   .FullRowSelect = True
   .Gridlines = True
End With

With ComboBox1
   For i = 3 To Sheets("参数设置").Range("f65536").End(3).Row
      .AddItem Sheets("参数设置").Cells(i, 6).Value
   Next
End With
   
End Sub

TA的精华主题

TA的得分主题

发表于 2012-3-22 19:00 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-3-22 19:08 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
客户{:soso_e181:}

TA的精华主题

TA的得分主题

发表于 2012-3-22 19:11 | 显示全部楼层
With ComboBox1
   For i = 3 To Sheets("参数设置").Range("f65536").End(3).Row
      .AddItem Sheets("参数设置").Cells(i, 6).Value
   Next
End With
在ComboBox1用change事件就行了!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 11:41 , Processed in 0.047701 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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