zhaogang1960 老师解决ListView1和ComboBox1建立链接并可以模糊查询和导出相应工作表

feiaoli · 发表于 2013-9-7 16:48

本帖最后由 feiaoli 于 2013-9-7 17:02 编辑

zhaogang1960 发表于 2013-9-7 15:15
第一句已经考虑到这个问题：
If rs.RecordCount = 0 Then Exit Sub '没有查询记录则退出

请老师给看一看，我实在找不到错在哪里了,工作表内有数据也无法查询
无法模糊查询非常感谢！

支票电汇进账单3.rar (503.68 KB, 下载次数: 49)

zhaogang1960 · 发表于 2013-9-7 18:06

feiaoli 发表于 2013-9-7 16:48
请老师给看一看，我实在找不到错在哪里了,工作表内有数据也无法查询
无法模糊查询非常感谢！

工作表中什么数据都没有，查询什么？

feiaoli · 发表于 2013-9-7 18:08

zhaogang1960 发表于 2013-9-7 18:06
工作表中什么数据都没有，查询什么？

有数据也不行啊、、模糊查询有问题

当然不是您给的代码有问题是我放在一起有问题了

feiaoli · 发表于 2013-9-7 18:12

zhaogang1960 发表于 2013-9-7 18:06
工作表中什么数据都没有，查询什么？

你的代码做的附件可以用

选择工作表查询导出zhaogang1960_老师的代码.rar (25.44 KB, 下载次数: 156)

我拿过来放进去就不能模糊查询了

支票电汇进账单3.rar (503.79 KB, 下载次数: 39)

zhaogang1960 · 发表于 2013-9-7 18:14

Private Sub 选择_Change()          '选择窗口选择数据录入的工作表  2/2
Select Case 选择.Value
   Case "支票打印"
         Sheet6.Visible = -1
         Sheet6.Activate
   Case "信用电汇"
         Sheet8.Visible = -1
         Sheet8.Activate
   Case "进账单打印"
         Sheet4.Visible = -1
         Sheet4.Activate
End Select
模糊查询.Text = ""
Call 设置初值
End Sub

zhaogang1960 · 发表于 2013-9-7 18:16

请看附件

支票电汇进账单3.rar (485.26 KB, 下载次数: 224)

feiaoli · 发表于 2013-9-7 18:40

zhaogang1960 发表于 2013-9-7 18:16
请看附件

可以用了、感激不尽1

谢谢赵老师、我看了半天只是你列出的代码部分做了修改，其他的没看出来。
如果是这样、为什么您给出的导出代码在没有别的代码的时候，隐藏工作表也可以使用呢？（如14楼你的代码附件）

我的这个附件毛病出在什么地方？？可以说一下嘛

yxrlqy · 发表于 2013-9-9 17:33

赵老师，能帮我看下，我的模糊查询哪里出问题，为什么提示找不到数据。
当CheckBox1 打钩时，在ComboBox4输入内容，进行模糊查询。谢谢了！

feiaoli · 发表于 2013-9-9 20:32

本帖最后由 feiaoli 于 2013-9-9 20:33 编辑

zhaogang1960 发表于 2013-9-7 18:16
请看附件

老师有一个请教问题的、他回复错了。没给你回复、麻烦你给他看一下http://club.excelhome.net/forum. ... 2&page=2#pid7185153 18楼

feiaoli · 发表于 2013-9-9 20:33

yxrlqy 发表于 2013-9-9 17:33
赵老师，能帮我看下，我的模糊查询哪里出问题，为什么提示找不到数据。
当CheckBox1 打钩时，在ComboB ...

你打错了应该给赵老师回复

		自动登录	找回密码
密码			免费注册

[已解决] zhaogang1960 老师解决ListView1和ComboBox1建立链接并可以模糊查询和导出相应工作表

点评

评分