update total no datagrid

04/01/2006

0

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]


Forumpec

Forumpec

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar