我在复制数据时遇到问题。我有一个显示为数据表的子表单,有 8 列和动态行数。我有一个代码,如果您在数据表中选择一个单元格并按下按钮,它将将该行复制到 ListBox。但我不知道如何制作一个循环,将所有行(或选定的几行)复制到列表框中。如果选择了多行,则仅复制第一行。
Private Sub Command_Click()
Dim item(1 To 8) As String
With frmPresentationList
item(1) = ![Col1]
item(2) = ![Col2]
item(3) = ![Col3]
item(4) = ![Col4]
item(5) = ![Col5]
item(6) = ![Col6]
item(7) = ![Co87]
item(8) = ![Col1]
End With
With Me.selectedItems
.AddItem Join(item, ";")
End With
End Sub
谢谢!