说明：
    当点击选取DropBox1下拉框的复选框时，将所选的内容填入对应的TextBox控件里,如果表A的第二列、第三列、第四列、第五列、第六列相同则将第七列数值相加后填入相应的控件。
    将所选的数值不重复的填入DropBox1中
    当在“输入数据”（TB3-*）里输入数据后，则将输入的数据除以TB2-*乘以表A的第七列，将数值填入表A的第八列，并勾选第十列。
    如果TextBox1，TextBox2，TextBox3，TextBox4所选的内容不是单一的（不一样），则提示不能输入两种内容，并返回重新选取。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:listview填充.foxdb

请帮忙修改一下吧，这个帮助里解释比较简单

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
    For Each vr As WinForm.ListViewRow In lvw.CheckedRows
        MessageBox.show("你选择的有:" & vls)
        Forms("窗口1").controls("TextBox1").Text = vr("第二列")
        Forms("窗口1").controls("TextBox2").Text = vr("第三列")
        Forms("窗口1").controls("TextBox3").Text = vr("第五列")
        Forms("窗口1").controls("TextBox4").Text = vr("第六列")
        For ir As Integer = 1 To vr.count-1
            Forms("窗口1").controls("TB1_" & ir+1).Text = vr(ir)("第四列")
            Forms("窗口1").controls("TB2_" & ir+1).Text = vr(ir)("第七列")
        Next
    Next
Else
    MessageBox.show("你并没有选择任何项目!" )
End If

发生错误,帮我看看