[VB.NET] Implementare matrici di controlli

[Veronica80]

Ciao ci sto diventando scema...lo so che in Vb.Net nn ci sono + le matrici per i controlli...
fatto sta che mi trovo 120 textBox con le quali costruire una bella stringa SQL...

son 4 gruppi da 30, (esempio: codice1, codice2, codice3 ecc ecc sino a 30)
(articolo1, articolo2, articolo3 ecc ecc sino a 30) e così via

senza matrici di controllo come gestisco il ciclo?!?

[Veronica80]

cioè...ipotizzando che io abbia 10 textbox chiamate miaTxt1, miaTxt2, miaTxt3 ecc ecc

avrei fatto:

dim strSQL as string

for i=1 to 10
  strSQL= strSQL & ", '" &  replace(miaText(i).text,"'","''") & "'"
next

strSQL=Mid(strSQL,3)

il problema è che miaText(i) non funge + nel Vb.net xD

[gibra]

Scusa, non procedere 'a caso' facendo esperimenti astrusi...
Davvero speri di ottenere un qualche risultato?

Vuoi un consiglio?
Il NET è completamente diverso da VB6 (ma è ancora il caso di ripeterlo?), quindi bisogna studiarselo con calma, altrimenti i mal di testa ti aspettano dietro l'angolo.
La vecchia fandonia diffusa da Microsoft che VB.NET è simile al VB6 è stata smascherata da molto tempo.

c'è un'apposita classe che si chiama, guarda te il caso, Array
http://msdn.microsoft.com/it-it/libr...tem.array.aspx

ancora:
http://www.morpheusweb.it/html/manua...bnet_array.asp

[Veronica80]

ora vedo di darci un'occhiata...ma di solito MSDN nn mi chiarisce le idee è troppo tecnico nelle spiegazioni

[gibra]

Originariamente inviato da Veronica80
ma di solito MSDN nn mi chiarisce le idee è troppo tecnico nelle spiegazioni

VVoVe:

[Veronica80]

uff... xD
invece di rimarcare che son una schiappa perchè nn mi scrivi un esempietto tipo quello che ho fatto io sopra per VB6?

[Stoicenko]

se i tuoi controlli textbox sono in un pannello per esempio, la proprietà Controls del pannello li contiene tutti

ti pasta ciclarli, vedere se sono delle textbox e poi usare la proprietà text..

l'unico problema è l'ordine.. per quello devi essere sicura che le textbox sono in ordine anche di numero

[Veronica80]

e lo so...ci avevo pensato ma purtroppo mi servono in ordine per la stringa sql

[gibra]

Questo esempio crea dinamicamente 3 Button e 3 TextBox su un form vuoto.
Crea un nuovo progetto, aggiungi i soliti Imports, incolla il codice e dai il run.
A mio avviso, quando si ha a che fare con 120 textbox la cosa migliore è crearli e posizionarli dinamicamente, ci si risparmia il lavoro fatto a mano.

Nei rispettivi eventi Click ti mostro come individuare sia il nome che il contenuto della proprietà Text, e la stessa cosa avviene quando modifichi il contenuto di un TextBox

    
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim x As Integer = 50, y As Integer = 50, n As Integer = 1

    For i As Integer = 0 To 2
        Dim btn As New Button()
        btn.Width = 100
        btn.Text = "Button " & n
        btn.Name = "btn" & n
        btn.Location = New Point(x, y)
        x += btn.Width + 10
        Me.Controls.Add(btn)
        AddHandler btn.Click, AddressOf btn_Click
        n += 1
    Next

    x = 50
    y = 100
    n = 1
    For i As Integer = 0 To 2
        Dim txt As New TextBox()
        txt.Width = 100
        txt.Text = "TextBox " & n
        txt.Name = "txt" & n
        txt.Location = New Point(x, y)
        x += txt.Width + 10
        Me.Controls.Add(txt)
        AddHandler txt.Click, AddressOf txt_Click
        AddHandler txt.TextChanged, AddressOf txt_TextChanged
        n += 1
    Next

End Sub

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim ButtonName As String = DirectCast(sender, Button).Name
    Dim ButtonText As String = DirectCast(sender, Button).Text
    MessageBox.Show(("Button Name: " & ButtonName & vbLf & "Button Text: ") + ButtonText)
End Sub

Private Sub txt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim TextBoxName As String = DirectCast(sender, TextBox).Name
    Dim TextBoxText As String = DirectCast(sender, TextBox).Text
    MessageBox.Show(("TextBox Name: " & TextBoxName & vbLf & "TextBox Text: ") + TextBoxText)

Private Sub txt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim TextBoxName As String = DirectCast(sender, TextBox).Name
    Dim TextBoxText As String = DirectCast(sender, TextBox).Text
    MessageBox.Show(("TextBox Name: " & TextBoxName & vbLf & "TextBox Text: ") + TextBoxText)
End Sub

End Sub

Come vedi, è piuttosto semplice.
Direi quindi che vale la pena di studiarsi le spiegazioni tecniche ...

[Veronica80]

grazie gibra ora mi pare che funzioni! Però mi dice che ci son troppi campi...

"Impossibile aggiungere la quantità di dati desiderata. Inserire o incollare meno dati."

se la tabella ha tutti quei campi perchè nn mi permette tramite SQL di popolarne un record?