Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4392|回复: 13

[已解决]listview数据查询不全,不知错哪里了(附件已更新)

[复制链接]
发表于 2014-10-12 23:59 | 显示全部楼层 |阅读模式
本帖最后由 22inin 于 2014-10-13 16:26 编辑

有两个数据表1.收款明细(各条明细,用于每套房屋的LISTVIEW取数记录)
                   2.合同台帐(各条合同综合信息,用于TESTBOX按COMBOX取数)
                    各有一个合同信息查询按钮
问题 :流水页LISTVIEW提取不了合同页的数据,合同页的LISTVIEW提取不了流水页的数据
求大侠们支招,万分感谢!
Private Sub ComboBox1_Change()
  Dim ITM As ListItem
  ListView1.ListItems.Clear
  For i = 1 To [a65536].End(xlUp).Row
    If Cells(i, 1) = ComboBox1.Text Then
       Set ITM = ListView1.ListItems.Add()
          ITM.Text = Sheets("收款流水").Cells(i, 2)
          ITM.SubItems(1) = Sheets("收款流水").Cells(i, 14).Value
          ITM.SubItems(2) = Sheets("收款流水").Cells(i, 13)
          ITM.SubItems(3) = Sheets("收款流水").Cells(i, 15)
          ITM.SubItems(4) = Sheets("收款流水").Cells(i, 16)
          ITM.SubItems(5) = Sheets("收款流水").Cells(i, 17)
          ITM.SubItems(6) = Sheets("收款流水").Cells(i, 18)
          TextBox2 = Sheets("合同台账").Cells(i, 6)
          TextBox5 = Sheets("合同台账").Cells(i, 2)
          TextBox7 = Sheets("合同台账").Cells(i, 3)
          TextBox4 = Sheets("合同台账").Cells(i, 7)
          TextBox8 = Sheets("合同台账").Cells(i, 8)
          TextBox9 = Sheets("合同台账").Cells(i, 5)
          TextBox10 = Sheets("合同台账").Cells(i, 9)
          TextBox12 = Sheets("合同台账").Cells(i, 10)
          TextBox3 = Sheets("合同台账").Cells(i, 13)
          TextBox13 = Sheets("合同台账").Cells(i, 11)
          TextBox6 = Sheets("合同台账").Cells(i, 12)
          TextBox17 = Sheets("合同台账").Cells(i, 19)
          TextBox19 = Sheets("合同台账").Cells(i, 14)
          TextBox18 = Sheets("合同台账").Cells(i, 15)
    End If
    Next i
End Sub
最佳答案
2014-10-14 16:12
(, 下载次数: 28)

销售合同台账-新模板-VBA.zip

457.03 KB, 下载次数: 8

求助

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-10-13 07:51 | 显示全部楼层
回复

使用道具 举报

发表于 2014-10-13 09:42 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2014-10-13 10:08 | 显示全部楼层
啊!!对不起啊!重新传了

销售合同台账-新模板-VBA.zip

457.03 KB, 下载次数: 6

回复

使用道具 举报

 楼主| 发表于 2014-10-13 10:12 | 显示全部楼层
问题二,貌似我已经知道为什么了,因为收款流水明细中有#N/A,所以无法取值,大侠 们,我的理解对吗?谢谢帮助
回复

使用道具 举报

 楼主| 发表于 2014-10-13 15:24 | 显示全部楼层
搞不定啊~~大侠,帮帮我吧,为什么流水页LISTVIEW提取不了合同页的数据,合同页的LISTVIEW提取不了流水页的数据
回复

使用道具 举报

发表于 2014-10-13 17:47 | 显示全部楼层
加个循环循环工作表,为了提高效率可以考虑用ADO处理数据
For j = 1 To 2
        With Sheets(j)
            For i = 1 To .[a65536].End(xlUp).Row
回复

使用道具 举报

 楼主| 发表于 2014-10-13 18:16 | 显示全部楼层
ghostjiao 发表于 2014-10-13 17:47
加个循环循环工作表,为了提高效率可以考虑用ADO处理数据
For j = 1 To 2
        With Sheets(j)

大侠 是这样加吗?貌似没用耶。。。提示内存溢出。。。

  Private Sub ComboBox1_Change()
  Dim ITM As ListItem
  ListView1.ListItems.Clear
  For j = 1 To 2
        With Sheets(j)
        End With
        Next j
  For i = 1 To [a65536].End(xlUp).Row
    If Cells(i, 1) = ComboBox1.Text Then
       Set ITM = ListView1.ListItems.Add()
          ITM.Text = Sheets("收款流水").Cells(i, 2)
          ITM.SubItems(1) = Sheets("收款流水").Cells(i, 14).Value
          ITM.SubItems(2) = Sheets("收款流水").Cells(i, 13)
          ITM.SubItems(3) = Sheets("收款流水").Cells(i, 15)
          ITM.SubItems(4) = Sheets("收款流水").Cells(i, 16)
          ITM.SubItems(5) = Sheets("收款流水").Cells(i, 17)
          ITM.SubItems(6) = Sheets("收款流水").Cells(i, 18)
          TextBox2 = Sheets("合同台账").Cells(i, 6)
          TextBox5 = Sheets("合同台账").Cells(i, 2)
          TextBox7 = Sheets("合同台账").Cells(i, 3)
          TextBox19 = Sheets("合同台账").Cells(i, 14)
          TextBox18 = Sheets("合同台账").Cells(i, 15)
    End If
    Next i
End Sub

回复

使用道具 举报

发表于 2014-10-13 18:23 | 显示全部楼层
For j = 1 To 2
        With Sheets(j)
            For i = 1 To .[a65536].End(xlUp).Row
                   if Cells(i, 1) = ComboBox1.Text Then
                  Set ITM = ListView1.ListItems.Add()
                     ......
                  TextBox18 = Sheets("合同台账").Cells(i, 15)
                  End If
           next
          end with
next
回复

使用道具 举报

 楼主| 发表于 2014-10-13 18:32 | 显示全部楼层
ghostjiao 发表于 2014-10-13 18:23
For j = 1 To 2
        With Sheets(j)
            For i = 1 To .[a65536].End(xlUp).Row

查询内容不全。。。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:04 , Processed in 0.698148 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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