作者linsevenligh (飞天蛙)
看板Visual_Basic
标题[.NET] 购物袋。恳请高手帮忙解惑
时间Wed Dec 6 14:01:41 2006
使用ASP.NET SQL2000 VB2003
以下是程式码
Sub 购物袋()
Dim Hash As Hashtable
If Session("购物袋") Is Nothing Then
Hash = New Hashtable
Else
Hash = Session("购物袋")
End If
Dim Arrkey(Hash.Count - 1) As String
Dim ArrVal(Hash.Count - 1) As Integer
Dim Products As String
Hash.Keys.CopyTo(Arrkey, 0)
Hash.Values.CopyTo(ArrVal, 0)
Products = "('" & Join(Arrkey, "','") & "')"
Dim Ds As DataSet, SQL As String
' Dim provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=" & Server.MapPath("TTT.Mdb")
SqlConnection1.Open()
SQL = "Select * From buy Where 商品编号 in Products"
Ds = New DataSet
SqlDataAdapter1.Fill(Ds, "buy")
Dim Table1 As DataTable = Ds.Tables("buy")
Table1.Columns.Add(New DataColumn("数量", GetType(Integer)))
Dim Keys() As DataColumn = {Table1.Columns("商品编号")}
Table1.PrimaryKey = Keys
Dim X As String
For Each X In Hash.Keys
Table1.Rows.Find(X).Item("数量") = Hash.Item(X)
Next
Table1.Columns.Add(New DataColumn("总价", GetType(Long), "商品价格*数量"))
' Dim 总价格 As String
' Dim I As Integer
' For I = 0 To Table1.Rows.Count - 1
' 总价格 += Table1.Rows(I).Item("总价")
'Next
DataGrid1.DataSource = Table1.DefaultView
DataGrid1.DataBind()
不懂的是。。每当我执行时
按加入购物车时。。所有商品清单都会被加入购物袋清单
应该是要被选取的商品才加入购物袋清单。。。不过ㄧ直弄不成功
希望高手大大。。帮忙解惑。。。感谢~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.171.138.152