RowSelectionChanged加入代码
Dim lr As WinForm.ListViewRow = e.Sender.CurrentIf lr IsNot Nothing Then Vars("姓名") = lr.TextEnd If