你好

下面这段代码是ListView控件的数据复制，但每次只能复制一行，有哪位大哥可以帮忙修改为可以每次复制多行数据。


 If ListView2.SelectedItems.Count <= 0 Then
            Return
        End If
        Dim Linedetails As ListView.SelectedListViewItemCollection = Me.ListView2.SelectedItems
        Dim item As ListViewItem
        Dim itemarray(6) As String
        For Each item In Linedetails
            For i = 0 To item.SubItems.Count - 1
                If i = 0 Then
                    ReDim itemarray(item.SubItems.Count)
                End If
                itemarray(i) = CStr(item.SubItems(i).Text)
            Next
        Next
        With
            .Clear()
            .SetText(Join(itemarray, vbTab))
        End With

ReDim itemarray(item.SubItems.Count)
for循环中每次都把这个数组清空了，放到剪贴板的时候只保留了最后一组数据。
可以改用个字符串变量保存选中内容

If ListView1.SelectedItems.Count <= 0 Then
    Return
End If
'Dim Linedetails As ListView.SelectedListViewItemCollection = Me.ListView1.SelectedItems
'Dim item As ListViewItem
'Dim itemarray(6) As String
Dim str As String = ""
For Each item In ListView1.SelectedItems
    For i = 0 To item.SubItems.Count - 1
        'If i = 0 Then
        '    ReDim itemarray(item.SubItems.Count)
        'End If
        'itemarray(i) = CStr(item.SubItems(i).Text)
        str &= CStr(item.SubItems(i).Text) & vbTab
    Next
    str &= vbCrLf
Next

With  '    .Clear()
    .Clear()
    '.SetText(Join(itemarray, vbTab))
    .SetText(str)

End With

[此贴子已经被作者于2022-2-13 20:33编辑过]

收到的鲜花

• dunnys 于 2022-02-14 09:52 送鲜花  2朵   附言：谢谢

谢谢，现在已经可以复制多条数据。