[VB.NET] DataTable eliminazione records

[raffaeu]

Ciao ho una DataTable dalla quale devo eliminare le righe che hanno determinati campi con valore = 0, ma mi scontro con la logica del mio loop.

Codice :

        For X As Int32 = 0 To tblTot.Rows.Count - 1
                If CInt(tblTot.Rows(X).Item("LANDA")) = 0 And _
                    CInt(tblTot.Rows(X).Item("SOLD")) = 0 And _
                    CInt(tblTot.Rows(X).Item("AVAIL")) = 0 And _
                    CInt(tblTot.Rows(X).Item("TSOLD")) = 0 And _
                    CInt(tblTot.Rows(X).Item("XSOLD")) = 0 And _
                    CInt(tblTot.Rows(X).Item("SGL")) = 0 And _
                    CInt(tblTot.Rows(X).Item("TRP")) = 0 And _
                    CInt(tblTot.Rows(X).Item("INDEP")) = 0 And _
                    CInt(tblTot.Rows(X).Item("GRDEP")) = 0 And _
                    CInt(tblTot.Rows(X).Item("INOPT")) = 0 And _
                    CInt(tblTot.Rows(X).Item("GROPT")) = 0 And _
                    CInt(tblTot.Rows(X).Item("TWINS")) = 0 And _
                    CInt(tblTot.Rows(X).Item("SFEMS")) = 0 And _
                    CInt(tblTot.Rows(X).Item("SMALS")) = 0 Then
                    tblTot.Rows(X).Delete()
                End If
        Next

Quando arriva a 7000 circa, mi dice che il record corrispondente non esiste, questo perchè il COunt delle Rows cambia ogni volta che elimino una riga ...

Avete qualche suggerimento?

[Brainjar]

Potresti invertire il controllo dall'ultimo al primo.
Non ho provato, ma potrebbe essere un'alternativa.

 
       For X As Int32 = tblTot.Rows.Count To 0 Step  - 1
                If CInt(tblTot.Rows(X).Item("LANDA")) = 0 And _
                    CInt(tblTot.Rows(X).Item("SOLD")) = 0 And _
                    CInt(tblTot.Rows(X).Item("AVAIL")) = 0 And _
                    CInt(tblTot.Rows(X).Item("TSOLD")) = 0 And _
                    CInt(tblTot.Rows(X).Item("XSOLD")) = 0 And _
                    CInt(tblTot.Rows(X).Item("SGL")) = 0 And _
                    CInt(tblTot.Rows(X).Item("TRP")) = 0 And _
                    CInt(tblTot.Rows(X).Item("INDEP")) = 0 And _
                    CInt(tblTot.Rows(X).Item("GRDEP")) = 0 And _
                    CInt(tblTot.Rows(X).Item("INOPT")) = 0 And _
                    CInt(tblTot.Rows(X).Item("GROPT")) = 0 And _
                    CInt(tblTot.Rows(X).Item("TWINS")) = 0 And _
                    CInt(tblTot.Rows(X).Item("SFEMS")) = 0 And _
                    CInt(tblTot.Rows(X).Item("SMALS")) = 0 Then
                    tblTot.Rows(X).Delete()
                End If
        Next

Ciao,

[raffaeu]

Mmm provo e ti faccio sapere.

[Brainjar]

Scusa, ma doveva essere

For X As Int32 = tblTot.Rows.Count -1 To 0 Step - 1

Ciao,

[raffaeu]

Si grazie ma è stranissimo pero' ...
Al contrario comunque il COunt delle Rows diminuisce ogni volta lo stesso ...

Boh, l' importante è che va.

Grassie!!

[Brainjar]

Grazie a te per la fiducia nel provare.
Il recordCount diminuisce è vero, ma sul record eliminato non ci
vai più, quindi non ti dà errore.

Ciao.

[riccardone]

Originariamente inviato da raffaeu
Boh, l' importante è che va.

non sarebbe meglio usare una dataview es.

tblTot.DefaultView.RowFilter = "NomeCampo = 0 AND NomeCampo2 = 0 AND ...."
        For Each _drv As DataRowView In tblTot.DefaultView
            _drv.Delete()
        Next

[raffaeu]

Bravo avevo già risolto ma cosi' almeno metto alla prova anche le DataView!!

Provo.