questa è la traduzione in visua basic dello script

Dim dt As DataTable = ds.Tables(0)

For i As Integer = 0 To dt.Rows.Count
If ds.Tables(0).Rows(i)(1) <> currentcategory Then
Dim dr As DataRow = dt.NewRow
dr(2) = dt.Rows(i)(1)
dr(1) = ds.Tables(0).Rows(i)(1)

dt.Rows.InsertAt(dr, i)

End If
currentcategory = ds.Tables(0).Rows(i)(1)
Next
Dg.DataSource = dt
Dg.DataBind()

in effetti dt ha 83 righe e il tutto funziona fino alla 83esima righa ma
dt.Rows.Count si incrementa man mano che
aggiugo le righe generate dal ciclo fino ad arrivare a circa cento righe ma
non viene + aggiornato dopo la 83esima
in pratica il ciclo non aggiunge piu righe dopo la 83 anche se si verifica
la condizione che la categoria è cambiata

in linea vedi come è

http://www.arzere.it/webform1.aspx


sono stato chiaro?
come si risolve?

Grazie Daniele Paoloni