X-Received: by 10.157.22.211 with SMTP id s19mr69382093ots.31.1470425585370; Fri, 05 Aug 2016 12:33:05 -0700 (PDT)
X-Received: by 10.36.230.68 with SMTP id e65mr99078ith.1.1470425585318; Fri, 05 Aug 2016 12:33:05 -0700 (PDT)
Path: csiph.com!weretis.net!feeder6.news.weretis.net!news.glorb.com!f6no7635626ith.0!news-out.google.com!d68ni17870ith.0!nntp.google.com!f6no7657839ith.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: it.comp.lang.visual-basic
Date: Fri, 5 Aug 2016 12:33:04 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=79.32.151.60; posting-account=YvmQ7woAAACbvEIaFgiLqeOe5qI21-s4
NNTP-Posting-Host: 79.32.151.60
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <59fa5dbb-e875-4110-baf9-e3bff59c2089@googlegroups.com>
Subject: VB6 listview ricerca su due campi
From: gaetano cala <calabresega@gmail.com>
Injection-Date: Fri, 05 Aug 2016 19:33:05 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable
Xref: csiph.com it.comp.lang.visual-basic:18844

buongiorno sono un novello programmatore mi presento al gruppo
.
sto sperimentando la listview,esaminamdo il programma sui db di Carbone car=
lo.
in questo programma vi e' la ricerca di un campo(cognome) e quindi la evide=
nziazione 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) =3D 0 Then

MsgBox "Specificare un cognome valido.", vbCritical, "Errore"
 Exit Sub
   Else
   Dim sFound
  With frmGESTDB
 Set sFound =3D .lstADD.FindItem(Text1, , , lvwPartial)
  If sFound Is Nothing Then
 MsgBox "Non =C3=A8 stata trovata alcuna voce come (" & Text1 & ")", vbCrit=
ical, "Errore"
 Exit Sub
  Else
  sFound.EnsureVisible
 sFound.Selected =3D 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 ess=
ere trasformato il listato=20