Fill DataGrid

[ruca]

Hi,

How can I fill a datagrid without accessing to a database or any type of
file, only filling with a command button like this:
I have 3 textboxes that I must fill, and a button that when clicked pass
text of this 3 textboxes to my datagrid.

I want to manage (edit , update, etc) a datagrid but without accessing
DataBase. The unique interaction with that DB is a button that save all that
I have in datagrid into DB.

Hope you understand.

--
Programming ASP.NET with VB.NET
Thank's (if you try to help me)
Hope this help you (if I try to help you)
ruca

[Cor Ligthert]

Hi Ruca,

Please tell that you are using a WebDatagrid when you ask this in the
language.VB newsgroup.

I hope this was where you where looking for.

Cor
..
\\\
Dim ds As New DataSet
Dim dt As New DataTable("Ruca ")
For i As Integer = 0 To 7
Dim dc As New DataColumn(Chr( i + 65))
dt.Columns.Add( dc)
Next
'And 12 rows every column filled with the same letter
For i As Integer = 0 To 11
dt.Rows.Add(dt. NewRow)
For y As Integer = 0 To dt.Columns.Coun t - 1
dt.Rows(i)(y) = Chr(i + 48)
Next
Next
ds.Tables.Add(d t)
datagrid1.datas ource=dt.tables ("Ruca")
datagrid1.datab ind
////

I hopethis helps?
Cor

[ruca]

And Can I update this datatable if I want? How?
--
Programming ASP.NET with VB.NET
Thank's (if you try to help me)
Hope this help you (if I try to help you)
ruca

"Cor Ligthert" <no**********@p lanet.nl> escreveu na mensagem
news:uQ******** ********@TK2MSF TNGP10.phx.gbl. ..

Hi Ruca,

Please tell that you are using a WebDatagrid when you ask this in the
language.VB newsgroup.

I hope this was where you where looking for.

Cor
.
\\\
Dim ds As New DataSet
Dim dt As New DataTable("Ruca ")
For i As Integer = 0 To 7
Dim dc As New DataColumn(Chr( i + 65))
dt.Columns.Add( dc)
Next
'And 12 rows every column filled with the same letter
For i As Integer = 0 To 11
dt.Rows.Add(dt. NewRow)
For y As Integer = 0 To dt.Columns.Coun t - 1
dt.Rows(i)(y) = Chr(i + 48)
Next
Next
ds.Tables.Add(d t)
datagrid1.datas ource=dt.tables ("Ruca")
datagrid1.datab ind
////

I hopethis helps?
Cor

[Cor Ligthert]

Hi Ruca,

You can put it in a session just by
session("ds") = ds

Updating a field can be something as (typed here watch typos)
\\\\
dim ds as new dataset = session("ds")
ds.tables(0).ro ws(index).item( fieldindex) = myvalue
///
or if you do a lot you can make it yourself more simple by
\\\
dim dr as datarow = ds.tables(0).ro ws(inded)
dr(fieldindex) = myvalue
///
I assume than you know the rest yourself?

If not feel free to ask again.

Cor

[ruca]

I have this:

Dim dt As DataTable
dt = Session.Item("m yDt")

strCd = CStr(CType(E.It em.FindControl( "edCod"), TextBox).Text)
dt.Rows(E.Item. ItemIndex).Item ("Cod") = strCd

dgTeste.DataSou rce = dt
dgTeste.DataBin d()

Session.Item("m yDt") = dt

but it gives me an error saying: "Column 'Cod' is read only."
--
Programming ASP.NET with VB.NET
Thank's (if you try to help me)
Hope this help you (if I try to help you)
ruca
"Cor Ligthert" <no**********@p lanet.nl> escreveu na mensagem
news:uB******** ******@TK2MSFTN GP09.phx.gbl...

Hi Ruca,

You can put it in a session just by
session("ds") = ds

Updating a field can be something as (typed here watch typos)
\\\\
dim ds as new dataset = session("ds")
ds.tables(0).ro ws(index).item( fieldindex) = myvalue
///
or if you do a lot you can make it yourself more simple by
\\\
dim dr as datarow = ds.tables(0).ro ws(inded)
dr(fieldindex) = myvalue
///
I assume than you know the rest yourself?

If not feel free to ask again.

Cor

[Cor Ligthert]

Hi Ruca,

I did not try it this way, however did you try it with a

Dim dt As New DataTable
dt = Session.Item("m yDt")

Now you have set a reference to your Session item in my idea.

When it does not work give a message, than I check it deeper.

Cor

[ruca]

It gives me the same error.
"Cor Ligthert" <no**********@p lanet.nl> escreveu na mensagem
news:uy******** ******@TK2MSFTN GP09.phx.gbl...

Hi Ruca,

I did not try it this way, however did you try it with a

Dim dt As New DataTable
dt = Session.Item("m yDt")

Now you have set a reference to your Session item in my idea.

When it does not work give a message, than I check it deeper.

Cor

[Cor Ligthert]

Hi Ruca,

I was not able to do it completly dynamicly, however here a sample with what
I have strugled this morning. (And it works)

I hope it works for you as well?

Cor
\\\\In the HTML page in the datagrid
<Columns>
<asp:EditComman dColumn ButtonType="Pus hButton" UpdateText="Upd ate"
CancelText="Can cel" EditText="Edit" ></asp:EditCommand Column>
<asp:BoundColum n DataField="A"></asp:BoundColumn >
<asp:BoundColum n DataField="B"></asp:BoundColumn >
<asp:BoundColum n DataField="C"></asp:BoundColumn >
</Columns>
///
\\\
Dim dt As New DataTable("Ruca ")
Private Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
If Not IsPostBack Then
For i As Integer = 0 To 2
Dim dc As New DataColumn(Chr( i + 65))
dt.Columns.Add( dc)
Next
For i As Integer = 0 To 9
dt.Rows.Add(dt. NewRow)
For y As Integer = 0 To dt.Columns.Coun t - 1
dt.Rows(i)(y) = Chr(i + 48)
Next
Next
DataGrid1.DataS ource = dt
DataGrid1.DataK eyField = dt.Columns(0).C olumnName
DirectCast(Data Grid1.Columns(1 ), BoundColumn).Re adOnly = True
DataGrid1.DataB ind()
Session.Item("d t") = dt
Else
dt = DirectCast(Sess ion.Item("dt"), DataTable)
DataGrid1.DataS ource = dt
DirectCast(Data Grid1.Columns(1 ), BoundColumn).Re adOnly = True
DataGrid1.DataK eyField = dt.Columns(0).C olumnName
End If
End Sub
Private Sub DataGrid1_Cance lCommand1(ByVal source _
As Object, ByVal e As
System.Web.UI.W ebControls.Data GridCommandEven tArgs) _
Handles DataGrid1.Cance lCommand
DataGrid1.EditI temIndex = -1
DataGrid1.DataB ind()
End Sub
Private Sub DataGrid1_EditC ommand1(ByVal source As Object, _
ByVal e As System.Web.UI.W ebControls.Data GridCommandEven tArgs) _
Handles DataGrid1.EditC ommand
DataGrid1.EditI temIndex = e.Item.ItemInde x
DataGrid1.DataB ind()
End Sub

Private Sub DataGrid1_Updat eCommand(ByVal source As Object, _
ByVal e As System.Web.UI.W ebControls.Data GridCommandEven tArgs) _
Handles DataGrid1.Updat eCommand
Dim dv As New DataView(dt)
dv.RowFilter = dt.Columns(0).C olumnName & "=" _
& DataGrid1.DataK eys(e.Item.Item Index).ToString ()
dv(0)(1) = DirectCast(e.It em.Cells(2).Con trols(0), TextBox).Text()
dv(0)(2) = DirectCast(e.It em.Cells(3).Con trols(0), TextBox).Text
Session.Item("d t") = dt
End Sub
End Class
///