Ciclo strano

venerdì 12 gennaio 2007 - 12.45

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

corkie 12 Profilo | Newbie

46 messaggi | Data Invio: ven 12 gen 2007 - 12:45

devo ciclare una tabella sql con delle righe doppie a due a due cioè se sono doppie sono una dopo l'altra, una delle due righe va eliminata,e non riesco a capire come fare.......... con un for il ciclo funziona solo che il risultato che ottengo non è esatto... ora vi mostro cosa faccio...
UNA VOLTA CREATO IL DATASET CREO AL SUO INTERNO UNA COLONNA che mi permette di segnare le celle da eliminare e poi finito il ciclo le elikmino tute in un colpo solo...

For ii As Integer = 0 To DS1.Tables("testTRANSLATIONS").Rows.Count - 1
' If ii < DS1.Tables("testTRANSLATIONS").Rows.Count - 1 Then

' If CType(DS1.Tables("testtranslations").Rows(ii).Item("IDLANGUAGE"), String).ToUpper.Trim() = CType(DS1.Tables("testtranslations").Rows(ii + 1).Item("IDLANGUAGE"), String).ToUpper.Trim() _
' And CType(DS1.Tables("testtranslations").Rows(ii).Item("OBJECT"), String).ToUpper.Trim() = CType(DS1.Tables("testtranslations").Rows(ii + 1).Item("OBJECT"), String).ToUpper.Trim() _
' And CType(DS1.Tables("testtranslations").Rows(ii).Item("FORMREFERENCE"), String).ToUpper.Trim() = CType(DS1.Tables("testtranslations").Rows(ii + 1).Item("FORMREFERENCE"), String).ToUpper.Trim() _
' And CType(DS1.Tables("testtranslations").Rows(ii).Item("DESCRIPTION"), String).ToUpper.Trim() = CType(DS1.Tables("testtranslations").Rows(ii + 1).Item("DESCRIPTION"), String).ToUpper.Trim() Then

' If CType(DS1.Tables("testtranslations").Rows(ii).Item("IDTRANSLATIONS"), String).ToUpper.Trim() > CType(DS1.Tables("testtranslations").Rows(ii + 1).Item("IDTRANSLATIONS"), String).ToUpper.Trim() Then
' Dim C As Integer
' C = CType(DS1.Tables("testtranslations").Rows(ii + 1).Item("IDTRANSLATIONS"), String).ToUpper.Trim()
' MyCommand1 = New SqlDataAdapter("insert clones select * from testtranslations where IDTRANSLATIONS = ' " & C & " '", MyConnection1)
' DRow = DS1.Tables("testtranslations").Rows(ii + 1)
' DRow.BeginEdit()
' DRow.Item("DELETED") = True
' Else
' Dim D As Integer
' D = CType(DS1.Tables("testtranslations").Rows(ii).Item("IDTRANSLATIONS"), String).ToUpper.Trim()
' MyCommand1 = New SqlDataAdapter("insert clones select * from testtranslations where IDTRANSLATIONS = ' " & D & " '", MyConnection1)
' MyCommand1.Fill(DS1, "testtranslations")
' DRow = DS1.Tables("testtranslations").Rows(ii)
' DRow.BeginEdit()
' DRow.Item("DELETED") = True
' End If

' End If
' End If
' Next

il problema le righe che mi rileva il ciclo sono pooche rispetto al vero risultato...

AntCiar Profilo | Expert

936 messaggi | Data Invio: ven 12 gen 2007 - 13:52

prova ad usare il ciclo al contrario.

For i = dts.rows.count -1 to 0 step -1

next

Ciao

corkie 12 Profilo | Newbie

46 messaggi | Data Invio: ven 12 gen 2007 - 17:43

RISOLTO IL ciclo strano ........
Non era colpa del ciclo in se ma dell'order NEL SQLDATAADAPTER che mi fregava a manetta senza che me accorgessi.....
GRAZIE MILLE PER IL CONSIGLIO COMUNQUE...BYE

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !