Specified Argument out of range error

[Shakthi]

Hi,

Pls let me how to solve this error "Specified argument out of range"
Pls find the code below and let me know the solution.

Public Class viewcart
Inherits System.Web.UI.P age
Protected WithEvents Cart As System.Web.UI.W ebControls.Data Grid
Protected WithEvents Label7 As System.Web.UI.W ebControls.Labe l
Protected WithEvents Label5 As System.Web.UI.W ebControls.Labe l
Protected WithEvents Label1 As System.Web.UI.W ebControls.Labe l
Protected WithEvents Label2 As System.Web.UI.W ebControls.Labe l
Protected WithEvents Image2 As System.Web.UI.W ebControls.Imag e
Protected WithEvents Image1 As System.Web.UI.W ebControls.Imag e
Protected WithEvents Label4 As System.Web.UI.W ebControls.Labe l
Dim objTable As New DataTable("Temp orary")
Dim CartView As DataView
Protected WithEvents HyperLink9 As System.Web.UI.W ebControls.Hype rLink
Dim i As Integer
'
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim objRow As DataRow
'
Try
ConSQL.Open()
objTable = sesDT '---- Global DataTable populated by many webpages
----'
CartView = New DataView(objTab le)
i = objTable.Rows.C ount
'
If objTable.Rows.C ount <= 0 Then
Say("Sorry, Shopping Cart is empty.")
End If
'
Do While i < 7
objRow = objTable.NewRow
objTable.Rows.A dd(objRow)
i = i + 1
Loop
'
Catch ex As Exception
Say(ex.Message. ToString)
Finally
If ConSQL.State = ConnectionState .Open Then
ConSQL.Close()
End If
End Try
'
If Not IsPostBack Then
BindGrid()
End If
'
End Sub
'
Private Sub BindGrid()
'
Cart.DataSource = CartView
Cart.DataBind()
'
End Sub
'
Private Sub Cart_EditComman d(ByVal source As Object, ByVal e As
System.Web.UI.W ebControls.Data GridCommandEven tArgs) Handles Cart.EditComman d
'
Cart.EditItemIn dex = e.Item.ItemInde x
BindGrid()
'
End Sub
'
Private Sub Cart_UpdateComm and(ByVal source As Object, ByVal e As
System.Web.UI.W ebControls.Data GridCommandEven tArgs) Handles Cart.UpdateComm and
'
Try
'
Dim itemcode As String = e.Item.Cells(0) .Text
Dim itemname As String = e.Item.Cells(1) .Text
' Dim qtyText As TextBox = e.Item.Cells(2) .Controls(0) '--- If I comment
these 2
lines program works with 2 as default qty. Even if I Typecast to
textbox it
throws error. Pls let me know the solution. ---
' Dim qty As String = qtyText.Text
Dim price As Double = e.Item.Cells(3) .Text
' Dim Amount As Double = Val(qtyText.Tex t) * e.Item.Cells(3) .Text
Dim Amount As Double = 2 * e.Item.Cells(3) .Text
Dim dr As DataRow
'
CartView.RowFil ter = "Itemcode=' " & itemcode & "'"
If CartView.Count > 0 Then
CartView.Delete (0)
End If
CartView.RowFil ter = ""
dr = objTable.NewRow ()
dr(0) = itemcode
dr(1) = itemname
dr(2) = 2
dr(3) = price
dr(4) = Amount
objTable.Rows.A dd(dr)
Cart.EditItemIn dex = -1
BindGrid()
'
Catch ex As Exception
Say(ex.Message)
End Try
'
End Sub
'
Private Sub Cart_CancelComm and(ByVal source As Object, ByVal e As
System.Web.UI.W ebControls.Data GridCommandEven tArgs) handles Cart.CancelComm and
'
Cart.EditItemIn dex = -1
BindGrid()
'
End Sub
'
Private Sub Cart_PageIndexC hanged(ByVal source As Object, ByVal e As
System.Web.UI.W ebControls.Data GridPageChanged EventArgs) Handles
Cart.PageIndexC hanged
'
If Cart.CurrentPag eIndex >= 0 Or Cart.CurrentPag eIndex < Cart.PageCount
Then
Cart.CurrentPag eIndex = e.NewPageIndex
BindGrid()
End If
'
End Sub
'
End Class

Thanks,

R.Shakthi

[Hermit Dave]

i would suggest that you download the commerce starter kit from www.asp.net
and have a look at the implementation of Cart in there.
They use a lot easier way.


--

Regards,

Hermit Dave
(http://hdave.blogspot.com)
"Shakthi" <Sh*****@discus sions.microsoft .com> wrote in message
news:70******** *************** ***********@mic rosoft.com...

Hi,

Pls let me how to solve this error "Specified argument out of range"
Pls find the code below and let me know the solution.

Public Class viewcart
Inherits System.Web.UI.P age
Protected WithEvents Cart As System.Web.UI.W ebControls.Data Grid
Protected WithEvents Label7 As System.Web.UI.W ebControls.Labe l
Protected WithEvents Label5 As System.Web.UI.W ebControls.Labe l
Protected WithEvents Label1 As System.Web.UI.W ebControls.Labe l
Protected WithEvents Label2 As System.Web.UI.W ebControls.Labe l
Protected WithEvents Image2 As System.Web.UI.W ebControls.Imag e
Protected WithEvents Image1 As System.Web.UI.W ebControls.Imag e
Protected WithEvents Label4 As System.Web.UI.W ebControls.Labe l
Dim objTable As New DataTable("Temp orary")
Dim CartView As DataView
Protected WithEvents HyperLink9 As System.Web.UI.W ebControls.Hype rLink
Dim i As Integer
'
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim objRow As DataRow
'
Try
ConSQL.Open()
objTable = sesDT '---- Global DataTable populated by many webpages
----'
CartView = New DataView(objTab le)
i = objTable.Rows.C ount
'
If objTable.Rows.C ount <= 0 Then
Say("Sorry, Shopping Cart is empty.")
End If
'
Do While i < 7
objRow = objTable.NewRow
objTable.Rows.A dd(objRow)
i = i + 1
Loop
'
Catch ex As Exception
Say(ex.Message. ToString)
Finally
If ConSQL.State = ConnectionState .Open Then
ConSQL.Close()
End If
End Try
'
If Not IsPostBack Then
BindGrid()
End If
'
End Sub
'
Private Sub BindGrid()
'
Cart.DataSource = CartView
Cart.DataBind()
'
End Sub
'
Private Sub Cart_EditComman d(ByVal source As Object, ByVal e As
System.Web.UI.W ebControls.Data GridCommandEven tArgs) Handles Cart.EditComman d '
Cart.EditItemIn dex = e.Item.ItemInde x
BindGrid()
'
End Sub
'
Private Sub Cart_UpdateComm and(ByVal source As Object, ByVal e As
System.Web.UI.W ebControls.Data GridCommandEven tArgs) Handles Cart.UpdateComm and '
Try
'
Dim itemcode As String = e.Item.Cells(0) .Text
Dim itemname As String = e.Item.Cells(1) .Text
' Dim qtyText As TextBox = e.Item.Cells(2) .Controls(0) '--- If I comment
these 2
lines program works with 2 as default qty. Even if I Typecast to
textbox it
throws error. Pls let me know the solution. ---
' Dim qty As String = qtyText.Text
Dim price As Double = e.Item.Cells(3) .Text
' Dim Amount As Double = Val(qtyText.Tex t) * e.Item.Cells(3) .Text
Dim Amount As Double = 2 * e.Item.Cells(3) .Text
Dim dr As DataRow
'
CartView.RowFil ter = "Itemcode=' " & itemcode & "'"
If CartView.Count > 0 Then
CartView.Delete (0)
End If
CartView.RowFil ter = ""
dr = objTable.NewRow ()
dr(0) = itemcode
dr(1) = itemname
dr(2) = 2
dr(3) = price
dr(4) = Amount
objTable.Rows.A dd(dr)
Cart.EditItemIn dex = -1
BindGrid()
'
Catch ex As Exception
Say(ex.Message)
End Try
'
End Sub
'
Private Sub Cart_CancelComm and(ByVal source As Object, ByVal e As
System.Web.UI.W ebControls.Data GridCommandEven tArgs) handles Cart.CancelComm and '
Cart.EditItemIn dex = -1
BindGrid()
'
End Sub
'
Private Sub Cart_PageIndexC hanged(ByVal source As Object, ByVal e As
System.Web.UI.W ebControls.Data GridPageChanged EventArgs) Handles
Cart.PageIndexC hanged
'
If Cart.CurrentPag eIndex >= 0 Or Cart.CurrentPag eIndex < Cart.PageCount
Then
Cart.CurrentPag eIndex = e.NewPageIndex
BindGrid()
End If
'
End Sub
'
End Class

Thanks,

R.Shakthi