Private Sub ListView1_DblClick() Set Itmx = Me.ListView1.SelectedItem Form1.Show Form1.Text1.Text = Itmx.Text Form1.Text2.Text = Itmx.SubItems(1)
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Form1.Text1.Text = lsvLesnIfm.SelectedItem.Text Form1.Text2.Text = lsvLesnIfm.SelectedItem.SubItems(1) Form1.Show 1 End Sub
Sorry,更正一下: Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Form1.Text1.Text = ListView1.SelectedItem.Text Form1.Text2.Text = ListView1.SelectedItem.SubItems(1) Form1.Show 1 End Sub
Private Sub lvwSJRY_DblClick() If Me.lvwSJRY.SelectedItem Is Nothing Then ' MsgBox "请在右边的网格中选择一个客户!", vbInformation, "提示" Exit Sub End If
frmTJResult.ShowPersonInfo Val(Mid(Me.lvwSJRY.SelectedItem.Key, 2)), Me.lvwSJRY.SelectedItem.SubItems(3) End Sub
思路: 双击或单击得到key或者text,通过此查找数据库,弹出Form接收 Private Sub Listview1_DblClick() ...... End Sub
Private Sub ListView1_DblClick()
Set Itmx = Me.ListView1.SelectedItem
Form1.Show
Form1.Text1.Text = Itmx.Text
Form1.Text2.Text = Itmx.SubItems(1)
End Sub
Form1.Text1.Text = lsvLesnIfm.SelectedItem.Text
Form1.Text2.Text = lsvLesnIfm.SelectedItem.SubItems(1)
Form1.Show 1
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Form1.Text1.Text = ListView1.SelectedItem.Text
Form1.Text2.Text = ListView1.SelectedItem.SubItems(1)
Form1.Show 1
End Sub
If Me.lvwSJRY.SelectedItem Is Nothing Then
' MsgBox "请在右边的网格中选择一个客户!", vbInformation, "提示"
Exit Sub
End If
frmTJResult.ShowPersonInfo Val(Mid(Me.lvwSJRY.SelectedItem.Key, 2)), Me.lvwSJRY.SelectedItem.SubItems(3)
End Sub
双击或单击得到key或者text,通过此查找数据库,弹出Form接收
Private Sub Listview1_DblClick()
......
End Sub