Debbo inserire un controllo sulla mia form che preveda la seguente: alla pressione di un pulsante, devono essere scorse tutte le righe e le singole celle di una flexgrid e se per caso almeno una di queste presenta, per una riga, una cella null, il salvataggio dei dati venga inibito mediante msgbox.
Ho fatto qualcosa del genere;
Nel primo if controllo che almeno una riga dev'essere compilata e nella seconda vorrei controllare quanto ho esposto prima.Codice PHP:k_ind = 1
For k_ind = 1 To grdRipartizioni.Rows - 1
If grdRipartizioni.TextMatrix(1, 0) = "" And _
grdRipartizioni.TextMatrix(1, 1) = "" And _
grdRipartizioni.TextMatrix(1, 2) = "" And _
grdRipartizioni.TextMatrix(1, 3) = "" Then
MsgBox "Prima di procedere al salvataggio delle informazioni, " & vbCrLf & _
"occorre specificare almeno una riga del dettaglio Fattura ", vbInformation, Me.Caption
Exit For
Else
If grdRipartizioni.TextMatrix(k_ind, 0) = "" Or _
grdRipartizioni.TextMatrix(k_ind, 1) = "" Or _
grdRipartizioni.TextMatrix(k_ind, 2) = "" Or _
grdRipartizioni.TextMatrix(k_ind, 3) = "" Then
MsgBox "Prima di procedere al salvataggio delle informazioni, " & vbCrLf & _
"occorre completare la valorizzazione per le righe incomplete ", vbInformation, Me.Caption
Exit For
End If
End If
Next
Il problema nasce dal fatto che il codice si scorre comunque tute le righe previste e se le ultime non sono valorizzate, vengo bloccato nel salvataggio.
Come posso variare quel codice?
Grazie anticipatamente per l'aiuto.
Rispondi quotando