[.NET] 購物袋。懇請高手幫忙解惑
使用ASP.NET ＳＱＬ２０００ ＶＢ２００３
以下是程式碼
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
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
1
10