Num = 1
Listinfo.ListItems.Clear '添加新值之前先清除一下列表内容
While Not rs.EOF
Set itmx = Listinfo.ListItems. _
Add(, , Num)
Num = Num + 1
itmx.SubItems(1) = rs!fullname
itmx.SubItems(2) = rs!sex
itmx.SubItems(3) = rs!ID_card
itmx.SubItems(4) = rs!modelname
itmx.SubItems(5) = rs!Exam_Score
rs.MoveNext
Wend
End Sub
Private Sub Listinfo_dblClick()
display (Listinfo.SelectedItem.Index)
Dim ind As Integer
Dim itmx1 As ListItem
Dim ID2 As Variant
Dim moduleid1 As String
Dim moduleid2 As String
Set itmx1 = Listinfo.ListItems.Item(Listinfo.SelectedItem.Index + 1)
ind = Listinfo.SelectedItem.Index + 1
ID2 = itmx1.SubItems(3)
moduleid1 = itmx1.SubItems(4)
If ID = ID2 Then
moduleid2 = moduleid & "、" & moduleid1
Set itmx1 = Listinfo.ListItems.Item(ind + 1)
ind = ind + 1
ID2 = itmx1.SubItems(3)
moduleid1 = itmx1.SubItems(4)
If ID = ID2 Then
moduleid2 = moduleid2 & "、" & moduleid1
Set itmx1 = Listinfo.ListItems.Item(ind + 1)
ind = ind + 1
ID2 = itmx1.SubItems(3)
moduleid1 = itmx1.SubItems(4)
If ID = ID2 Then
moduleid2 = moduleid2 & "、" & moduleid1
Set itmx1 = Listinfo.ListItems.Item(ind + 1)
ind = ind + 1
ID2 = itmx1.SubItems(3)
moduleid1 = itmx1.SubItems(4)
If ID = ID2 Then
moduleid2 = moduleid2 & "、" & moduleid1
End If
End If
End If
Else: moduleid2 = moduleid
End If
End Sub
Public Function display(ind As Integer) 'listview显示值函数
Dim itmx As ListItem
Set itmx = Listinfo.ListItems.Item(ind)
Fil = itmx.SubItems(6)
fname = itmx.SubItems(1)
sex = itmx.SubItems(2)
IDcard = itmx.SubItems(3)
ID = itmx.SubItems(3)
moduleid = itmx.SubItems(4)
End Function