[已解决]从【ListView2】取值到【ListView1】的问题！

lenovo0312 · 发表于 2017-8-19 15:45

本帖最后由 lenovo0312 于 2017-8-19 15:47 编辑

左边是由（大灰狼1976）老师帮忙修改的代码！
__________________________________________
我参照左边【单元格取值】的代码，试着将其修改成
从【ListView2】取值到【ListView1】。结果失败！
小妹实在是没有办法！
还请坛里的大师出手帮忙修改一下！谢谢！
————————————————————————————
如大灰狼1976老师路过，请再次出手相助！谢谢！

附件：

比较复杂的筛选Book3.rar (46.84 KB, 下载次数: 13)

大灰狼1976 · 发表于 2017-8-19 16:05

是不是这样

Private Sub CommandButton1_Click() 'ListView2中取值
Set LV1 = ListView1
Set LV2 = ListView2
Set d2 = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
ReDim arr1(1 To LV2.ListItems.Count, 1 To 9)
For x = 1 To LV2.ListItems.Count
d1(LV2.ListItems(x).SubItems(9)) = d1(LV2.ListItems(x).SubItems(9)) + LV2.ListItems(x).SubItems(8)
If LV2.ListItems(x).SubItems(4) = "退" Or LV2.ListItems(x).SubItems(4) = "赠" Then
d2(LV2.ListItems(x).SubItems(9)) = ""
End If
Next x
p = d2.Keys
q = d1.Keys
T = d1.Items
For i = 0 To d2.Count - 1
For x = 1 To LV2.ListItems.Count
H = LV1.ListItems.Count
For j = 0 To d1.Count - 1
If LV2.ListItems(x).SubItems(9) = p(i) Then
If q(j) = p(i) And T(j) <> 0 Then
k = k + 1
LV1.ListItems.Add , , H
LV1.ListItems(k).SubItems(1) = LV2.ListItems(x).SubItems(9)
LV1.ListItems(k).SubItems(2) = LV2.ListItems(x).SubItems(1)
LV1.ListItems(k).SubItems(3) = LV2.ListItems(x).SubItems(2)
LV1.ListItems(k).SubItems(4) = LV2.ListItems(x).SubItems(3)
LV1.ListItems(k).SubItems(5) = LV2.ListItems(x).SubItems(4)
LV1.ListItems(k).SubItems(6) = LV2.ListItems(x).SubItems(7)
LV1.ListItems(k).SubItems(7) = LV2.ListItems(x).SubItems(5)
LV1.ListItems(k).SubItems(8) = LV2.ListItems(x).SubItems(8)
LV1.ListItems(k).SubItems(9) = LV2.ListItems(x).SubItems(6)
End If
End If
Next
Next
Next
End Sub

复制代码

大灰狼1976 · 发表于 2017-8-19 16:09

漏了一句清空listview语句。

Private Sub CommandButton1_Click() 'ListView2中取值
Set LV1 = ListView1
Set LV2 = ListView2
Set d2 = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
ReDim arr1(1 To LV2.ListItems.Count, 1 To 9)
For x = 1 To LV2.ListItems.Count
d1(LV2.ListItems(x).SubItems(9)) = d1(LV2.ListItems(x).SubItems(9)) + LV2.ListItems(x).SubItems(8)
If LV2.ListItems(x).SubItems(4) = "tui" Or LV2.ListItems(x).SubItems(4) = "zen" Then
d2(LV2.ListItems(x).SubItems(9)) = ""
End If
Next x
p = d2.Keys
q = d1.Keys
T = d1.Items
LV1.ListItems.Clear
For i = 0 To d2.Count - 1
For x = 1 To LV2.ListItems.Count
H = LV1.ListItems.Count
For j = 0 To d1.Count - 1
If LV2.ListItems(x).SubItems(9) = p(i) Then
If q(j) = p(i) And T(j) <> 0 Then
k = k + 1
LV1.ListItems.Add , , H
LV1.ListItems(k).SubItems(1) = LV2.ListItems(x).SubItems(9)
LV1.ListItems(k).SubItems(2) = LV2.ListItems(x).SubItems(1)
LV1.ListItems(k).SubItems(3) = LV2.ListItems(x).SubItems(2)
LV1.ListItems(k).SubItems(4) = LV2.ListItems(x).SubItems(3)
LV1.ListItems(k).SubItems(5) = LV2.ListItems(x).SubItems(4)
LV1.ListItems(k).SubItems(6) = LV2.ListItems(x).SubItems(7)
LV1.ListItems(k).SubItems(7) = LV2.ListItems(x).SubItems(5)
LV1.ListItems(k).SubItems(8) = LV2.ListItems(x).SubItems(8)
LV1.ListItems(k).SubItems(9) = LV2.ListItems(x).SubItems(6)
End If
End If
Next
Next
Next
End Sub

复制代码

02761752696 · 发表于 2017-8-19 20:11

学习了

lenovo0312 · 发表于 2017-8-19 22:16

大灰狼1976 发表于 2017-8-19 16:09
漏了一句清空listview语句。

谢谢！(大灰狼1976)老师！刚回家测试了一下您帮忙修改的代码
发现有个这样的问题，多出了10组数据！
请见附图！

比较复杂的筛选Book3.rar (47.08 KB, 下载次数: 14)

lenovo0312 · 发表于 2017-8-20 13:04

{:31:}{:31:}{:31:}

苏子龙 · 发表于 2017-8-21 09:53

本帖最后由苏子龙于 2017-8-21 09:55 编辑

lenovo0312 发表于 2017-8-19 22:16
谢谢！(大灰狼1976)老师！刚回家测试了一下您帮忙修改的代码
发现有个这样的问题，多出了10组数据！
...

For X = 1 To LV2.ListItems.Count
  d1(LV2.ListItems(X).SubItems(9)) = d1(LV2.ListItems(X).SubItems(9)) + Val(LV2.ListItems(X).SubItems(8))
  If LV2.ListItems(X).SubItems(4) = "退" Or LV2.ListItems(X).SubItems(4) = "赠" Then
  d2(LV2.ListItems(X).SubItems(9)) = ""
  End If

加个val或者*1，不然d1的items是字符串

苏子龙 · 发表于 2017-8-21 09:58

加附件

lenovo0312 · 发表于 2017-8-21 15:11

苏子龙发表于 2017-8-21 09:58
加附件

谢谢老师！

苏子龙 · 发表于 2017-8-21 15:24

lenovo0312 发表于 2017-8-21 15:11
谢谢老师！

不是我写的，应该给大灰狼版主

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

[已解决]从【ListView2】取值到【ListView1】的问题！

评分

评分