Newsgroup: it.comp.lang.visual-basic
Titolo: omonimia e Array

Frequento un corso di v.b. e sono alle prime armi.Chiedo aiuto circa il
problema dell'omonimia del cognome in un esercizio con Arrey
dinamico.Grazie!
Option Explicit
Dim Cognome() As String
Dim Nome() As String
Dim Età() As String
Dim Telefono() As String
Dim Indirizzo() As String
Dim I As Integer
Dim Num As Integer
Dim X As String
Private Sub Form_Load()
Num = InputBox("Quanti utenti vuoi inserire?", "UTENTI")
ReDim Cognome(Num) As String
ReDim Nome(Num) As String
ReDim Età(Num) As String
ReDim Telefono(Num) As String
ReDim Indirizzo(Num) As String
For I = 1 To Num
    Cognome(I) = InputBox("Inserisci il cognome", "COGNOME")
    Nome(I) = InputBox("Inserisci il nome", "NOME")
    Età(I) = InputBox("Inserisci l'età ", "ETA'")
    Telefono(I) = InputBox("Inserisci il telefono", "TELEFONO")
    Indirizzo(I) = InputBox("Inserisci l'indirizzo", "INDIRIZZO")
  Next I
  End Sub
Private Sub optCognome_Click()
X = InputBox("Inserisci il Cognome dell'utente", "Ricerca per Cognome")
For I = 1 To Num
    If X = Cognome(I) Then
        txtCognome.Text = Cognome(I)
        txtNome.Text = Nome(I)
        txtEtà.Text = Età(I)
        txtTelefono.Text = Telefono(I)
        txtIndirizzo.Text = Indirizzo(I)
    End If
    Next I
    End Sub
Private Sub optEtà_Click()
X = InputBox("Inserisci l'Età dell'utente", "Ricerca per Età")
For I = 1 To Num
    If X = Età(I) Then
        txtCognome.Text = Cognome(I)
        txtNome.Text = Nome(I)
        txtEtà.Text = Età(I)
        txtTelefono.Text = Telefono(I)
        txtIndirizzo.Text = Indirizzo(I)
    End If
    Next I
End Sub
Private Sub optIndirizzo_Click()
X = InputBox("Inserisci l'Indirizzo dell'utente", "Ricerca per Indirizzo")
For I = 1 To Num
    If X = Indirizzo(I) Then
        txtCognome.Text = Cognome(I)
        txtNome.Text = Nome(I)
        txtEtà.Text = Età(I)
        txtTelefono.Text = Telefono(I)
        txtIndirizzo.Text = Indirizzo(I)
    End If
    Next I
End Sub
Private Sub optNome_Click()
X = InputBox("Inserisci il Nome dell'utente", "Ricerca per Nome")
For I = 1 To Num
    If X = Nome(I) Then
        txtCognome.Text = Cognome(I)
        txtNome.Text = Nome(I)
        txtEtà.Text = Età(I)
        txtTelefono.Text = Telefono(I)
        txtIndirizzo.Text = Indirizzo(I)
    End If
    Next I
End Sub
Private Sub optTelefono_Click()
X = InputBox("Inserisci il Telefono dell'utente", "Ricerca per Telefono")
For I = 1 To Num
    If X = Telefono(I) Then
        txtCognome.Text = Cognome(I)
        txtNome.Text = Nome(I)
        txtEtà.Text = Età(I)
        txtTelefono.Text = Telefono(I)
        txtIndirizzo.Text = Indirizzo(I)
    End If
    Next I
End Sub
--------------------------------
Inviato via 
http://usenet.libero.it

 dinamico.Grazie!
[snip]
Ok... qual è il problema?
--
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

Ok... qual č il problema?
LOL
Aran Banjo
<math> 2 + 2 = 5 for sufficiently large values of 2</math>

 [SNIP]
La prossima volta, cerca anche di scrivere _qual'e'_ il
problema!
Comunque, mi sembra di capire che viene visualizzato solo il
_primo_ "record" con il cognome selezionato e non tutti gli
altri.
Se e' questo il problema (peraltro lo stesso che hai con le
ricerche per nome, per eta', ecc.!), ti suggerisco di
utilizzare il controllo ListView per visualizzare il
risultato, piuttosto che delle TextBox aggiungendo tante
righe (con il metodo AddItem) quante sono le occorrenze
trovate.
Private Sub optCognome_Click()
  Dim Res As String
  Dim Trovato As String
  Res = InputBox("Inserisci il Cognome dell'utente",
"Ricerca per Cognome")
  lstTrovati.Clear
  For i = 1 To Num
    'Compara in maiuscolo
    If UCase$(Res) = UCase$(Cognome(i)) Then
      'Compone la riga da aggiungere
      Trovato = Cognome(i) & " " & Nome(i) & " " & Eta(i) &
" " & _
                Telefono(i) & " " & Indirizzo(i)
      'La aggiunge
      lstTrovati.AddItem Trovato
    End If
  Next i
End Sub
Happy Coding =)
Lokar
P.S. Benvenuto nel newsgroup, se hai intenzione di
continuare a postare qui, ti suggerisco di dare una buona
lettura al manifesto in calce sotto la firma.
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org