[已解决]关于Listview显示另一表的程序

cut

Listview窗口.rar (12.36 KB, 下载次数: 16)

2011-8-27 16:12 上传

点击文件名下载附件 我想在listview这表中的LISTVIEW窗口，自动更新并显示表“规格资料”的内容，请教大家

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-9-1 15:54

回复 cut 的帖子

窗体代码：

1. 
   
2. Private Sub UserForm_Initialize()
   
3.     Dim Wb As Workbook, ArrTemp, i As Byte, j&, iT
   
4.     Set Wb = GetObject(ThisWorkbook.Path & "\规格资料.xls")
   
5.     With Wb
   
6.         ArrTemp = .Sheets(1).Range("a1").CurrentRegion.Value
   
7.         With ListView1
   
8.             .ListItems.Clear
   
9.             For i = 1 To 6
   
10.                 .ColumnHeaders.Add , , ArrTemp(1, i), IIf(i = 1, 120, 60)
    
11.             Next i
    
12.             .View = lvwReport
    
13.             For j = 2 To UBound(ArrTemp, 1)
    
14.                 Set iT = .ListItems.Add()
    
15.                 iT.Text = ArrTemp(j, 1)
    
16.                 For i = 2 To 6
    
17.                     iT.SubItems(i - 1) = ArrTemp(j, i)
    
18.                 Next i
    
19.             Next j
    
20.         End With
    
21.         .Close False
    
22.     End With
    
23. End Sub
    

复制代码

Listview窗口.rar (18.53 KB, 下载次数: 36)

2011-9-1 15:54 上传

点击文件名下载附件

跳转到最佳答案楼层

Aкon

为什么不放到一个工作薄里，而要分开呀

cut

因为“listview”表用完一次，就复制成新的一个表，但“规格资料”是经常要更新规格
如果listview复了100个表出来，变成“规格资料”的内容就不统一

那么的帅

回复 cut 的帖子

Listview引用其他工作簿数据.rar (17.93 KB, 下载次数: 44)

2011-8-27 17:02 上传

点击文件名下载附件

cut

对了。是这样。以下是我在textbox中模糊查询
但要求查询对象：
Private Sub TextBox1_Change()
Dim what As String: what = TextBox1.Value
Dim rw As String: rw = Sheet1.Range("A65536").End(xlUp).Row
Dim total As String
total = 0

If TextBox1.Value = "" Then
    '
    ListView1.ListItems.Clear
        With Sheet1
          For I = 2 To rw
            Set ITM = ListView1.ListItems.Add()
            ITM.Text = .Cells(I, 1)
            ITM.SubItems(1) = .Cells(I, 2)
            ITM.SubItems(2) = .Cells(I, 3)
            ITM.SubItems(3) = .Cells(I, 4)
            ITM.SubItems(4) = .Cells(I, 5)
            ITM.SubItems(5) = .Cells(I, 6)
                total = total + .Cells(I, 6).Value
            Next I
        End With
           TextBox1.SetFocus
    Exit Sub

Else

    Dim rng As Range
    Set rng = Sheet1.Range("A2:F" & rw)
    Dim dic As Object
    Set dic = CreateObject("scripting.dictionary")
    ListView1.ListItems.Clear   '
    For I = 2 To rw
        For ii = 1 To 2
            Dim tmp As Range
            Set tmp = Sheet1.Cells(I, ii).Find(what, lookat:=xlPart, MatchCase:=False)      '
                If Not tmp Is Nothing Then
                    If Not dic.exists(tmp.Row) Then     '
                        dic.Add tmp.Row, ""
                        Set ITM = ListView1.ListItems.Add()
                        ITM.Text = Sheet1.Cells(I, 1)
                        ITM.SubItems(1) = Sheet1.Cells(I, 2)
                        ITM.SubItems(2) = Sheet1.Cells(I, 3)
                        ITM.SubItems(3) = Sheet1.Cells(I, 4)
                        ITM.SubItems(4) = Sheet1.Cells(I, 5)
                        ITM.SubItems(5) = Sheet1.Cells(I, 6)
                              total = total + Sheet1.Cells(I, 6).Value
                    End If
                End If
            Next ii
        Next I
      
        Set dic = Nothing
End If

End Sub

cut

请问有木有高手可以帮忙解决？

liuguansky

回复 cut 的帖子

窗体代码：

1. 
   
2. Private Sub UserForm_Initialize()
   
3.     Dim Wb As Workbook, ArrTemp, i As Byte, j&, iT
   
4.     Set Wb = GetObject(ThisWorkbook.Path & "\规格资料.xls")
   
5.     With Wb
   
6.         ArrTemp = .Sheets(1).Range("a1").CurrentRegion.Value
   
7.         With ListView1
   
8.             .ListItems.Clear
   
9.             For i = 1 To 6
   
10.                 .ColumnHeaders.Add , , ArrTemp(1, i), IIf(i = 1, 120, 60)
    
11.             Next i
    
12.             .View = lvwReport
    
13.             For j = 2 To UBound(ArrTemp, 1)
    
14.                 Set iT = .ListItems.Add()
    
15.                 iT.Text = ArrTemp(j, 1)
    
16.                 For i = 2 To 6
    
17.                     iT.SubItems(i - 1) = ArrTemp(j, i)
    
18.                 Next i
    
19.             Next j
    
20.         End With
    
21.         .Close False
    
22.     End With
    
23. End Sub
    

复制代码

Listview窗口.rar (18.53 KB, 下载次数: 36)

2011-9-1 15:54 上传

点击文件名下载附件

cut

谢谢七楼解答，我想在listview中实现模糊查询