Visual Basic 6 - errore - Piero Tofy.it

Forum - Visual Basic 6 - errore

Pagine: [ 1 2 ]

massimo (Normal User)
Expert

Messaggi: 210
Iscritto: 23/08/2009

Postato alle 20:52
Giovedì, 19/11/2009

salve avrei un problemino. in un form ho dei ho 5 text in cui riempiti con dei dati li salvo in datagrid, ma il problema e che se ne riempio solo uno o tre in poche parole se non vengono riempite tutte mi da errore. come posso risolvere?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:38
Giovedì, 19/11/2009

io metterei un if per controllare che siano tutte piene...

Codice sorgente - presumibilmente Delphi

if (text1.text <> "") and (text2.text <> "") and (text3.text <> "") and (text4.text <> "") and (text5.text <> "") then
'codice che le inserisce nel datagrid
else
msgbox "Alcune text sono incomplete, ricontrollare!"
end if

massimo (Normal User)
Expert

Messaggi: 210
Iscritto: 23/08/2009

Postato alle 21:59
Giovedì, 19/11/2009

dove metto il codice?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 22:10
Giovedì, 19/11/2009

in un pulsante...

massimo (Normal User)
Expert

Messaggi: 210
Iscritto: 23/08/2009

Postato alle 22:30
Giovedì, 19/11/2009

mi da errore

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 22:37
Giovedì, 19/11/2009

quale errore? quale riga vb ti evidenzia?

massimo (Normal User)
Expert

Messaggi: 210
Iscritto: 23/08/2009

Postato alle 22:42
Giovedì, 19/11/2009

questa conn.Execute sql

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 7:17
Venerdì, 20/11/2009

mostra il codice che usi...

massimo (Normal User)
Expert

Messaggi: 210
Iscritto: 23/08/2009

Postato alle 12:26
Venerdì, 20/11/2009

Private Sub cmdsalva_Click()
If (txtdescrizione.Text <> "") And (txtriferimento.Text <> "") And (cmbpagamento.Text <> "") And (cmbrisorsa.Text <> "") And (cmbversamenti.Text <> "") And (cmbprelievi.Text <> "") And (txtentrata.Text <> "") And (txtuscita.Text <> "") Then
'codice che le inserisce nel datagrid
Else
MsgBox "Alcune text sono incomplete, ricontrollare!"
End If

If MsgBox("salvare i dati?", vbYesNo + vbQuestion) = vbNo Then
Cancel = True
End If
Dim sql As String

Pagine: [ 1 2 ]