listview里面成为了  ListView1.View = lvwReport
    ListView1.Checkboxes = TURE                                                
但我希望多次点击不同行后，也只能是当前点击的一项内容被选中？

[ 本帖最后由 owenlu1981 于 2014-3-17 13:42 编辑 ]

自己搞掂
ListView1.ListItems(ListView1.SelectedItem.Index).ForeColor = vbRed
   For k = 1 To ListView1.ListItems(1).ListSubItems.Count
             ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems.Item(k).ForeColor = vbRed
    Next
    For i = 1 To ListView1.ListItems.Count   '用这种不断判断是否多选的方法 去保证选择的唯一性
       If i <> ListView1.SelectedItem.Index And ListView1.ListItems(i).Checked = True Then
          ListView1.ListItems(i).Checked = False
          If ListView1.ListItems(i).ForeColor = vbRed Then
              For k = 1 To ListView1.ListItems(1).ListSubItems.Count
                ListView1.ListItems(i).ListSubItems.Item(k).ForeColor = &H80000008
              Next
          End If
     End If