ayuda en creacion de tabla

Quisiera saber si alguienentiende porke me pasa un error

Estoy creando una hashtable de la siguiente manera (es una coleccion de
tablas y lo hago kon hash porquenecesito una clave)

For Each datarow1 In ds.Tables("tabla1").Rows
datatable1 = ds.Tables("tabla2").Copy
For Each datarow2 In datatable1.Rows
If Not Trim(datarow1(0)).ToUpper = Trim(datarow2(0)).ToUpper
Then
datarow2.Delete()
End If
Next
coleccion.Add(Trim(datarow1(0)), datatable1)
Next

esto lo hace bien me crea una coleccion con la tablas correctas, el
problema
se me presenta a la hora de mirar alguna de las tablas de la coleccion, ya
que si muestro cada una en un data grid me los muestra bien y las tablas
que
deberia pero al acceder a una fila me presenta problema y me dice que la
fila
esta eliminada (debe ser por datarow2.delete), pero no c como solucionarlo
los problemas se me presentan en un evento del datagrid:

Private Sub dg_CurrentCellChaged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles dg.CurrentCellChanged
Try
Dim b As Boolean
MsgBox(dg.DataSource.Rows(dg.CurrentRowIndex)("Columna1"))
end sub


quiero que me mueestre el valor de una columna en la fila posicionada,
pero
en algunos casos me dice que no se puede aceder a la informacion eliminada
de
una fila ...

Agradeceria si alguien tiene idea como solucionar esto, he usado elmetodo
accept changes pero ahi no mecarga la coleccion

Proba hacer un AcceptChanges en la tabla donde eliminaste filas. Asi las
filas se eliminaran definitivamente de la coleccion.

Saludos
Diego

"Miko_tnt" wrote in message
news:
>
> Quisiera saber si alguienentiende porke me pasa un error
>
> Estoy creando una hashtable de la siguiente manera (es una coleccion de
> tablas y lo hago kon hash porquenecesito una clave)
>
> For Each datarow1 In ds.Tables("tabla1").Rows
> datatable1 = ds.Tables("tabla2").Copy
> For Each datarow2 In datatable1.Rows
> If Not Trim(datarow1(0)).ToUpper = Trim(datarow2(0)).ToUpper
> Then
> datarow2.Delete()
> End If
> Next
> coleccion.Add(Trim(datarow1(0)), datatable1)
> Next
>
> esto lo hace bien me crea una coleccion con la tablas correctas, el
> problema
> se me presenta a la hora de mirar alguna de las tablas de la coleccion, ya
> que si muestro cada una en un data grid me los muestra bien y las tablas
> que
> deberia pero al acceder a una fila me presenta problema y me dice que la
> fila
> esta eliminada (debe ser por datarow2.delete), pero no c como solucionarlo
> los problemas se me presentan en un evento del datagrid:
>
> Private Sub dg_CurrentCellChaged(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles dg.CurrentCellChanged
> Try
> Dim b As Boolean
> MsgBox(dg.DataSource.Rows(dg.CurrentRowIndex)("Columna1"))
> end sub
>
>
> quiero que me mueestre el valor de una columna en la fila posicionada,
> pero
> en algunos casos me dice que no se puede aceder a la informacion eliminada
> de
> una fila ...
>
> Agradeceria si alguien tiene idea como solucionar esto, he usado elmetodo
> accept changes pero ahi no mecarga la coleccion
>