listviewden textboxa aktarım

[rainmaker29]

arkadaşlar üstadlar resimde anlattım. yardım edebilirmisiniz

 

[meslan]

Merhaba

Dim sıradaki As Integer
Private Sub ListView1_DblClick()
If sıradaki = Empty Then
    sıradaki = 1
    For i = 1 To 72
       Controls("TextBox" & i) = Empty
    Next
  End If
   For i = 0 To 8
     Controls("TextBox" & sıradaki + i) = Me.ListView1.SelectedItem.ListSubItems(i + 8).Text
   Next
   sıradaki = sıradaki + 9
   If sıradaki > 64 Then sıradaki = Empty
End Sub

Kolay gelsin

 

[rainmaker29]

ilginiz için teşekkürler sn.meslan. iyi günler...