Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #18844

VB6 listview ricerca su due campi

Show all headers | View raw

buongiorno sono un novello programmatore mi presento al gruppo
.
sto sperimentando la listview,esaminamdo il programma sui db di Carbone carlo.
in questo programma vi e' la ricerca di un campo(cognome) e quindi la evidenziazione di un record di un db.mdb su di una listview ecco il codice:
Private Sub Command1_Click(Index As Integer)
  Select Case Index

 Case 1

Unload Me

Case 0

 If Len(Text1) = 0 Then

MsgBox "Specificare un cognome valido.", vbCritical, "Errore"
 Exit Sub
   Else
   Dim sFound
  With frmGESTDB
 Set sFound = .lstADD.FindItem(Text1, , , lvwPartial)
  If sFound Is Nothing Then
 MsgBox "Non è stata trovata alcuna voce come (" & Text1 & ")", vbCritical, "Errore"
 Exit Sub
  Else
  sFound.EnsureVisible
 sFound.Selected = True
 Unload Me
  .lstADD.SetFocus
 End If
  End With
 End If
     End Select

End Sub

Volendo invece fare la ricerca con due campi (cognome e nome) come deve essere trasformato il listato 

Back to it.comp.lang.visual-basic | Previous | Next — Next in thread | Find similar

Thread

VB6 listview ricerca su due campi gaetano cala <calabresega@gmail.com> - 2016-08-05 12:33 -0700
  Re: VB6 listview ricerca su due campi Luca D <antaniserse@yahoo.it> - 2016-08-06 00:06 -0700
    Re: VB6 listview ricerca su due campi gaetano cala <calabresega@gmail.com> - 2016-08-06 03:52 -0700

csiph-web