DW MX实例：实现电子商务购物车

来源：eNet硅谷动力 作者： 出处：巧巧读书 2007-10-01 进入讨论组

• 关 键 词：
• dreamweaver
• javascript
• microsoft
• asp.net
• server

上一页 1 2 3 4 5 6 下一页 

　　（ 5 ）定义“ CpTotal ”过程，用于统计财物车总金额。

　　Sub CpTotal()

　　Dim i As Integer

　　Dim Cpto As single=0

　　For i=0 to Cptb.Rows.Count-1

　　Cpto=Cpto+Cptb.Rows(i)(4)

　　Next

　　CPCOUNT.text=Cpto

　　End Sub

　　（读者可打开【光盘】｜【源文件】｜【实例 83 】｜【 83.3.txt 】文件，直接复制）

　　（ 6 ）定义“ ByGrid_Delete ”过程，用于单击【删除】按钮后，删除当前购物。

　　Sub ByGrid_Delete(sender As Object, e As DataGridCommandEventArgs)

　　Dim dr As DataRow = Cpbt.NewRow()

　　Dim itemCell As TableCell = e.Item.Cells(0)

　　Dim item As String = ItemCell.Text

　　CpView.RowFilter = "CPID='" & item & "'"

　　If CpView.Count > 0 Then

　　CpView.Delete(0)

　　End If

　　CpView.RowFilter = ""

　　CpTotal

　　ByGrid.DataSource = CpView

　　ByGrid.DataBind()

　　End Sub 　

　　（读者可打开【光盘】｜【源文件】｜【实例 83 】｜【 83.4.txt 】文件，直接复制） 　

　　（ 7 ）定义“ CpUpdate_Click ”过程，用于在单击完【更新购物车】按钮后更新购物车中的小计。

　　Sub CpUpdate_Click(sender As object, e As EventArgs) 　

　　Dim i,j As Integer 　

　　Dim _item As DataGridItem 　

　　j=0 　

　　For i=0 To ByGrid.Items.Count-1 　

　　_item = ByGrid.Items(i) 　

　　Dim CountText As TextBox = _item.FindControl("Sltxt") 　

　　Cpbt.Rows(i)(3) = CountText.Text 　

　　Cpbt.Rows(i)(4) = Cpbt.Rows(i)(2) * Cpbt.Rows(i)(3) 　

　　Next 　

　　CpTotal 　

　　ByGrid.DataSource = New DataView(Cpbt) 　

　　ByGrid.DataBind() 　

　　End Sub 　

　　（读者可打开【光盘】｜【源文件】｜【实例 83 】｜【 83.5.txt 】文件，直接复制）观看地址： http://www.qqread.com/dreamweaver/q325104022.html进入讨论组讨论。

上一页 1 2 3 4 5 6 下一页 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：DW MX实例：给产品下订单

较新的文章：用Dreamweaver插件制作滚动链接层