Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vls As String = ""
For Each vr As WinForm.ListViewRow In lvw.CheckedRows
vls = vls & vbcrlf & vr("第三列") & vr("第二列") & " " & vr("第四列") & " " & vr("第五列") & vr("第六列")
Next
vls = vls.Trim(",")
If vls > "" Then
MessageBox.show("你选择的有:" & vls)
Dim vr As WinForm.ListViewRow = lvw.CheckedRows(0)
Forms("窗口1").controls("TextBox1").Text = vr("第二列")
Forms("窗口1").controls("TextBox2").Text = vr("第三列")
Forms("窗口1").controls("TextBox3").Text = vr("第五列")
Forms("窗口1").controls("TextBox4").Text = vr("第六列")
Dim ir As Integer = 0
For Each vr In lvw.CheckedRows
Forms("窗口1").controls("TB1_" & ir+1).Text = vr("第四列")
Forms("窗口1").controls("TB2_" & ir+1).Text = vr("第七列")
ir += 1
Next
Else
MessageBox.show("你并没有选择任何项目!" )
End If
加好友 
发短信
Post By：2016/9/8 8:50:00 [显示全部帖子]
