Cargar Datatable

[roger1187]

Hola gente que tal ... tengo una duda .... tengo un datatable creado en un dataset1.xsd
se llama dt_prueba

cuando quiero cargar este datatable con un gridview como seria ???

solo tengo para elegir unas opciones capaz algo me falta

DataSet1.DT_PruebaDataTable
DataSet1.DT_PruebaRow

y yo normal hacia lo sgte con un datatable ya guardado

Dim miDataTable As New DataTable
dRow = miDataTable.NewRow()
dRow("Secuencial") = Txt_Secuen.Text
miDataTable.Rows.Add(dRow)

he probado cargarlo por una sesion y no se como recuperarlo y la verdad estoy muy preocupado porque desde hace dias no puedo lograr esto
capaz tambien me podrian ayudar con lo de la sesion mi codigo es asi




En 1er lugar se ve el page_load ... capaz me este equivocando en recuperar el datatable .... los nombres a las columnas en el else es para guardar el datatable con nombre midatatable ...

luego en un boton agregar lleno midatatable y cuando lo grabo en una sesion("midatatable")

para luego querer recueperar esta misma sesion y cargarlo en un 2do datatable con el nombre "midatatable1 y cargarlo en un gridview que es CargaRelaAlmTemp

La verdad tengo un gran problema ahora mismo, me gustaria que me ayuden con las 2 formas, pero de preferencia con la 1ra porque existe la posibilidad que se entre mas de una vez y crear 2 datatable como que me parece muy peligroso ..

Gracias de antemano les dejo el codigo abajo

Dim miDataTable As New DataTable
Dim miDataTable1 As New DataTable

If Not Page.IsPostBack Then
CargaRelacionAlm()
Else
Grv_RelaProvTemp.DataSource = miDataTable
Grv_RelaProvTemp.DataBind()
If grv_RelaProv.Rows.Count > 0 Then
miDataTable.Columns.Add("Secuencial")
miDataTable.Columns.Add("Código")
miDataTable.Columns.Add("Descripcion")
miDataTable.Columns.Add("Por Atender")
miDataTable.Columns.Add("Usuario")
End If
End If


Sub CargaRelacionAlm()
grv_RelaProv.DataSource = ClaseAlmacen.CargaRelacionStockAlm_Requi(hf_empres a.Value, Txt_CodArt.Text)
grv_RelaProv.DataBind()
End Sub

Sub CargaRelaAlmTemp()
Grv_RelaProvTemp.DataSource = miDataTable1
Grv_RelaProvTemp.DataBind()
End Sub




Dim dRow As DataRow
For i = 0 To grv_RelaProv.Rows.Count - 1
Dim row As GridViewRow = grv_RelaProv.Rows(i)
dRow = miDataTable.NewRow()

Next
For i = 0 To grv_RelaProv.Rows.Count - 1
Dim row As GridViewRow = grv_RelaProv.Rows(i)
dRow = miDataTable.NewRow()
Dim TxtStock As String = DirectCast(row.FindControl("Txt_NumStock"), TextBox).Text
dRow("Secuencial") = Txt_Secuen.Text
dRow("Código") = row.Cells(0).Text
dRow("Descripcion") = Txt_CodArt.Text
dRow("Por Atender") = TxtStock
dRow("Usuario") = hf_Usuario.Value
If Len(Trim(TxtStock)) > 0 Then
miDataTable.Rows.Add(dRow)
End If
Next
Session("miDataTable") = miDataTable1
CargaRelaAlmTemp()

[roger1187]

alguna sugerencia??