update total no datagrid
caro amigos;
estou precisando de um updatetotal no datagrid, tenho um exemplo em vb (asp.net), mas não estou conseguindo adapta-lo ao delphi (asp.net), se alguem tiver algum em exemplo semelhante a esse em vb, por gentileza envie. Eu preciso que o seja só um botão de update.
link do ex. em vb funcionando
http://samples.gotdotnet.com/quickstart/aspplus/samples/web forms/ctrlref/webctrl/datagrid/doc_datagrid.aspx#editing
codigo em vb(asp.net)
<¬@ Import Namespace=´System.Data´ ¬>
<html>
<script language=´VB´ runat=´server´>
Dim CartView As DataView
Dim runningTotal As Double = 0
´Cart is a property on the Page
ReadOnly Property Cart As DataTable
Get
Dim tmpCart As DataTable
Dim i As Integer
Dim dr As DataRow
If Session(´DG_ShoppingCart´) Is Nothing Then
tmpCart = new DataTable()
tmpCart.Columns.Add(new DataColumn(´Qty´, GetType(String)))
tmpCart.Columns.Add(new DataColumn(´Product´, GetType(String)))
tmpCart.Columns.Add(new DataColumn(´Price´, GetType(Double)))
tmpCart.Columns.Add(new DataColumn(´GiftWrap´, GetType(Boolean)))
Session(´DG_ShoppingCart´) = tmpCart
´ first load -- prepopulate with some data
For i= 1 to 6
dr = tmpCart.NewRow()
dr(0) = ´1´
dr(1) = ´Product ´ & i.ToString
dr(2) = 1.23 * (i+1)
dr(3) = false
tmpCart.Rows.Add(dr)
Next
Return tmpCart
Else
Return Session(´DG_ShoppingCart´)
End If
End Get
End Property
´Sub Page_Init(sender As Object, e As EventArgs)
´ MyDataGrid.EnableViewState = true
´End Sub
Sub Page_Load(sender As Object, e As EventArgs)
CartView = Cart.DefaultView
If Not IsPostBack Then
BindGrid
End If
End Sub
Sub BindGrid()
MyDataGrid.DataSource = CartView
MyDataGrid.DataBind()
End Sub
Sub btnUpdate_click(sender As Object, e As EventArgs)
Dim i As Integer
Dim _item As DataGridItem
Dim dr As DataRow
For i = 0 To MyDataGrid.Items.Count - 1
_item = MyDataGrid.Items(i)
Dim qtyTextBox As TextBox= _item.FindControl(´txtQty´)
Dim giftCheckBox As CheckBox = _item.FindControl(´chkGIft´)
´ with a database, we´d use an update command.
´ since this is an in-memory datatable, we´ll just change the in-memory row.
dr = Cart.Rows(i)
dr(0) = qtyTextBox.Text
dr(3) = giftCheckBox.Checked
Next
BindGrid
End Sub
Function CalcTotal (count As Integer, price As Double) As Double
Dim total As Double
total = count * price
runningTotal += total
CalcTotal = total
End Function
[color=green:200340bb13]Movido de Delphi para ASP.NET[/color:200340bb13]
estou precisando de um updatetotal no datagrid, tenho um exemplo em vb (asp.net), mas não estou conseguindo adapta-lo ao delphi (asp.net), se alguem tiver algum em exemplo semelhante a esse em vb, por gentileza envie. Eu preciso que o seja só um botão de update.
link do ex. em vb funcionando
http://samples.gotdotnet.com/quickstart/aspplus/samples/web forms/ctrlref/webctrl/datagrid/doc_datagrid.aspx#editing
codigo em vb(asp.net)
<¬@ Import Namespace=´System.Data´ ¬>
<html>
<script language=´VB´ runat=´server´>
Dim CartView As DataView
Dim runningTotal As Double = 0
´Cart is a property on the Page
ReadOnly Property Cart As DataTable
Get
Dim tmpCart As DataTable
Dim i As Integer
Dim dr As DataRow
If Session(´DG_ShoppingCart´) Is Nothing Then
tmpCart = new DataTable()
tmpCart.Columns.Add(new DataColumn(´Qty´, GetType(String)))
tmpCart.Columns.Add(new DataColumn(´Product´, GetType(String)))
tmpCart.Columns.Add(new DataColumn(´Price´, GetType(Double)))
tmpCart.Columns.Add(new DataColumn(´GiftWrap´, GetType(Boolean)))
Session(´DG_ShoppingCart´) = tmpCart
´ first load -- prepopulate with some data
For i= 1 to 6
dr = tmpCart.NewRow()
dr(0) = ´1´
dr(1) = ´Product ´ & i.ToString
dr(2) = 1.23 * (i+1)
dr(3) = false
tmpCart.Rows.Add(dr)
Next
Return tmpCart
Else
Return Session(´DG_ShoppingCart´)
End If
End Get
End Property
´Sub Page_Init(sender As Object, e As EventArgs)
´ MyDataGrid.EnableViewState = true
´End Sub
Sub Page_Load(sender As Object, e As EventArgs)
CartView = Cart.DefaultView
If Not IsPostBack Then
BindGrid
End If
End Sub
Sub BindGrid()
MyDataGrid.DataSource = CartView
MyDataGrid.DataBind()
End Sub
Sub btnUpdate_click(sender As Object, e As EventArgs)
Dim i As Integer
Dim _item As DataGridItem
Dim dr As DataRow
For i = 0 To MyDataGrid.Items.Count - 1
_item = MyDataGrid.Items(i)
Dim qtyTextBox As TextBox= _item.FindControl(´txtQty´)
Dim giftCheckBox As CheckBox = _item.FindControl(´chkGIft´)
´ with a database, we´d use an update command.
´ since this is an in-memory datatable, we´ll just change the in-memory row.
dr = Cart.Rows(i)
dr(0) = qtyTextBox.Text
dr(3) = giftCheckBox.Checked
Next
BindGrid
End Sub
Function CalcTotal (count As Integer, price As Double) As Double
Dim total As Double
total = count * price
runningTotal += total
CalcTotal = total
End Function
[color=green:200340bb13]Movido de Delphi para ASP.NET[/color:200340bb13]
Forumpec
Curtidas 0