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

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> (permalink)
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

Show key headers only | 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