wu
更新時間：2012/6/1 下午 07:09:32

你好 我現在在學購物車
我也買了互動網站百寶箱
我跟你的範例學
但執行按下購物車卻一直出現
只有在偵錯模式編譯時，才可以顯示產生此未處理例外狀況的原始程式碼。若要啟動，請依照下列步驟之一，然後要求 URL:

1. 將 "Debug=true" 指示詞加入產生錯誤的程式碼頂端。例如:

  <%@ Page Language="C#" Debug="true" %>

或:

2. 將下列區段加入您應用程式的組態檔:

<configuration>
   <system.web>
       <compilation debug="true"/>
   </system.web>
</configuration>

這個 無法連結到下個網頁
artial Class A1goods
    Inherits System.Web.UI.Page
    Dim htChoose As Hashtable = New Hashtable
  Protected Sub addTocart(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        htChoose = Session("allChoose")
        Dim id As String = FormView1.DataKey.Value
        Dim name As String = CType(FormView1.FindControl("nameLabel"), Label).Text
        Dim cose As String = CSng(CType(FormView1.FindControl("coseLabel"), Label).Text)
        Dim quantity As String = CSng(CType(FormView1.FindControl("TextBox5"), TextBox).Text)
        If htChoose.ContainsKey(id) Then
            Dim arrStr() As String = htChoose(id).ToString.Split("&")
            arrStr(2) = CStr(Val(arrStr(2) + 1))
            htChoose.Remove(id)        '刪除Hashtable 所存著檔案
            htChoose.Add(id, arrStr(0) & "&" & arrStr(1) & "&" & arrStr(2))   '重新這立一個Hashtable 資料重複時,數量增加 其他不便 . 使用方法
        Else
            htChoose.Add(id, name & "&" & cose & "&" & quantity)

        End If
        Session("allchoose") = htChoose
        Response.Redirect("~/buyas.aspx")
    End Sub

End Class
請問這有哪裡錯的嗎

wu
更新時間：2012/6/5 上午 10:26:12

我錯誤位子 在arrStr(2) = CStr(Val(arrStr(2) + 1))
跟   Dim cose As String = CSng(CType(FormView1.FindControl("coseLabel"), Label).Text)

文淵閣工作室
更新時間：2012/6/6 上午 06:22:41

看訊息為您修改的程式，請將程式寄回，我們將為您測試！