Private Sub ListView1_DblClick()
'Private Sub ListView4_Click()
If ListView1.SelectedItem.SubItems(5) = "A一窗体" Then
窗体A.Show 0
End If
If ListView1.SelectedItem.SubItems(5) = "B一窗体" Then
窗体B.Show 0
End If
If ListView1.SelectedItem.SubItems(5) = "C一窗体" Then
窗体C.Show 0
End If
我昨天用的这个笨方法终于可以删了
ComboBox1 = Mid(ListView4.SelectedItem.SubItems(13), 1, Len(ListView4.SelectedItem.SubItems(13)) - 16)
If ComboBox1 = "FY" Then
A一窗体.Show 0
End If
End If