How to append new row in Grid View in Vb.net
In my case, I have set of data in GridView and I have to append some more records into current grid. So set of records are already there and add new more grid row that is my requirement.
Private Property TempTabel As DataTable
Get
Dim dt As DataTable = New DataTable()
If ViewState("CurrentTabele") Is Nothing Then
dt.Columns.AddRange(New DataColumn(11) {New DataColumn("reqn", GetType(String)), New DataColumn("item", GetType(String)), New DataColumn("dsca", GetType(String)), New DataColumn("det_text", GetType(String)), New DataColumn("uom", GetType(String)), New DataColumn("oqua", GetType(String)), New DataColumn("pric", GetType(String)), New DataColumn("t_cvat", GetType(String)), New DataColumn("discprc", GetType(String)), New DataColumn("ldam", GetType(String)), New DataColumn("amta", GetType(String)), New DataColumn("ddta", GetType(String))})
ViewState("CurrentTabele") = dt
End If
Return CType(ViewState("CurrentTabele"), DataTable)
End Get
Set(ByVal value As DataTable)
ViewState("CurrentTabele") = value
End Set
End Property
Private Sub btnAddInGrid_Click(sender As Object, e As EventArgs) Handles btnAddInGrid.Click
Dim dt As DataTable = TempTabel
If TempTabel IsNot Nothing Then
If gvSelected.Rows.Count <= 0 Then
dt.Rows.Add("123", txtitem.Text, txtdsca.Text, txtdet_text.Text, dduom.Text, ddoqua.Text, txtpric.Text, ddt_cvat.Text, txtdiscprc.Text, txtldam.Text, txtamta.Text, txtddta.Text)
Me.gvSelected.DataSource = dt
Me.gvSelected.DataBind()
Else
Dim NewRow As DataRow = dt.NewRow()
NewRow(0) = "456"
NewRow(1) = txtitem.Text
NewRow(2) = txtdsca.Text
NewRow(3) = txtdet_text.Text.ToString()
NewRow(4) = dduom.Text
NewRow(5) = ddoqua.Text
NewRow(6) = txtpric.Text
NewRow(7) = ddt_cvat.Text
NewRow(8) = txtdiscprc.Text
NewRow(9) = txtldam.Text
NewRow(10) = txtamta.Text
NewRow(11) = txtddta.Text
dt.Rows.Add(NewRow)
Me.gvSelected.DataSource = dt
Me.gvSelected.DataBind()
End If
End If
TempTabel = dt
End Sub