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

yxrlqy

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

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

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

yxrlqy

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

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

jiangdong110

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

yxrlqy

模糊查询，基本已完成，但有个小问题，如果将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

各位老师，有空帮忙下。

tdyx616

呵呵!TKS!辛苦！

timeyh

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

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

timeyh

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

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

忘得快

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") '客户编码不能自动加一位，出现重号，请教如何修改？谢谢！