[VB6] Creazione automatica di text box
--------------------------------------------------------------------------------
Private Sub txtq_LostFocus(index As Integer)
Dim Y As Integer
Dim X As Currency
Y = 0
Do While index < 2
If txtq(index).Text = "" Then
Exit Sub
End If
Data1.RecordSource = "select * from articoli_catalogo where cod_art='" & cod1(index).Text & "'"
Data1.Refresh
Y = Y + 300
If index = txtq.count - 1 Then
Load cod1(cod1.count)
Load txt1(txt1.count)
Load txtq(txtq.count)
Load txtpu(txtpu.count)
Load txtimp1(txtimp1.count)
End If
cod1(index + 1).Move 350, 1820 + Y
cod1(index + 1).Visible = True
cod1(index + 1).Text = ""
cod1(index + 1).SetFocus
txt1(index + 1).Move 1910, 1820 + Y
txt1(index + 1).Visible = True
txt1(index + 1).Text = ""
txtq(index + 1).Move 6840, 1820 + Y
txtq(index + 1).Visible = True
txtq(index + 1).Text = ""
txtpu(index + 1).Move 7690, 1820 + Y
txtpu(index + 1).Visible = True
txtpu(index + 1).Text = ""
txtimp1(index + 1).Move 9840, 1820 + Y
txtimp1(index + 1).Visible = True
txtimp1(index + 1).Text = ""
index = index + 1
Call importo
Loop
End Sub
con questo pòpò di codice, tramite un tab sulla text box relativa alla quatità da ordinare, creo una riga d'ordine successiva per poter ordinare un altro prodotto... Il problema è che mi crea solo una riga!!!
Che modifiche devo fare per far si che mi crei una riga ogni volta che faccio tab sulla quantità(index)???
Spero di essermi spiegato..
aiutatemi vi prego.![]()