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

yxrlqy · 发表于 2013-9-10 10:22

feiaoli 发表于 2013-9-7 18:40
可以用了、感激不尽1

谢谢赵老师、我看了半天只是你列出的代码部分做了修改，其他的没看出来。

希望赵老师能帮我改改，感激不尽。

yxrlqy · 发表于 2013-9-22 09:34

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

赵老师，在吗，能帮忙看看我的模糊查询问题在哪吗，谢谢！

jiangdong110 · 发表于 2013-9-22 12:51

真的是好多问题啊！呵呵赵版主还是很热心的！

yxrlqy · 发表于 2013-9-25 17:26

模糊查询，基本已完成，但有个小问题，如果将ze里面的代码：
ITM.Text = Sheets(ComboBox3.Text).Cells(i, 1)
                     ITM.SubItems(1) = Sheets(ComboBox3.Text).Cells(i, 2)
                     ITM.SubItems(2) = Sheets(ComboBox3.Text).Cells(i, 3)
                     ITM.SubItems(3) = Sheets(ComboBox3.Text).Cells(i, 4)
         ITM.SubItems(4) = Sheets(ComboBox3.Text).Cells(i, 5)
         ITM.SubItems(5) = Sheets(ComboBox3.Text).Cells(i, 6)
替换成：
  ITM.Text = .Cells(i, 1)

                  For m = 1 To X
                     ITM.SubItems(m) = .Cells(i, m + 1)
                  Next，
查询结果只能有一个，烦请老师帮我优化下，

另外还想根据日期来进行查询，代码：
JJ = Format(.Cells(i, 1), "yyyy-mm-dd")

            If JJ >= Format(DTPicker1.Value, "yyyy-mm-dd") And JJ <= Format(DTPicker2.Value, "yyyy-mm-dd") Then，老师能否也帮我加进去，感激不尽。

yxrlqy · 发表于 2013-9-27 09:24

各位老师，有空帮忙下。

tdyx616 · 发表于 2013-11-12 13:31

呵呵!TKS!辛苦！

timeyh · 发表于 2014-11-21 14:34

zhaogang1960 发表于 2013-9-7 11:48
请看附件

真是太厉害了。这个东西好。值得收藏

timeyh · 发表于 2014-11-21 14:34

zhaogang1960 发表于 2013-9-7 11:48
请看附件

真是太厉害了。这个东西好。值得收藏

忘得快 · 发表于 2015-11-24 19:17

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

赵老师您好！TextBox19.Text = IIf(Mid(s, 3, 8) = d, Mid(s, 1, 10) & Format(Val(Right(s, 3)) + 1, "000"), "ZJJ" & d & "001") '客户编码不能自动加一位，出现重号，请教如何修改？谢谢！

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

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