Hey all,
Perhaps one of you can see what I'm doing wrong. The rowselectorcolumn
is an excellent little control that adds in checkboxes to a datagrid.
That's just an FYI, it's not my problem. If I click "btnRelease" and
only have a single checkbox checked, all is well and the records update.
If I click multiple checkboxes and click "btnRelease" the code bombs out
with a "Too many arguments" error. It's as if the For Each isn't
processing each record individually. Make sense?
Sub Record(ByVal sender As Object, ByVal e As EventArgs) Handles
btnRelease.Click
Dim rsc As MetaBuilders.WebControls.RowSelectorColumn =
MetaBuilders.WebControls.RowSelectorColumn.FindCol umn(MyDataGrid)
Dim selIndex As Integer
Dim tmp As Integer = 0
Dim myCommand As SqlCommand = New SqlCommand("RPT_Released",
localConnection)
localConnection.Open()
For Each selIndex In rsc.SelectedIndexes
With myCommand
.CommandType = CommandType.StoredProcedure
.CommandTimeout = "9999"
.Parameters.Add(New SqlParameter("@vdn", SqlDbType.VarChar, 5)).Value =
MyDataGrid.Items(selIndex).Cells(2).Text
.Parameters.Add(New SqlParameter("@Shipper", SqlDbType.VarChar,
19)).Value = gShipper.Trim
.Parameters.Add(New SqlParameter("@dodaac", SqlDbType.VarChar, 6)).Value
= gDodaac.Trim
.Parameters.Add(New SqlParameter("@carrier", SqlDbType.VarChar,
4)).Value = gCarrier.Trim
.Parameters.Add(New SqlParameter("@pod", SqlDbType.VarChar, 3)).Value =
gPOD.Trim
.Parameters.Add(New SqlParameter("@ship", SqlDbType.VarChar, 30)).Value
= MyDataGrid.Items(selIndex).Cells(4).Text
.Parameters.Add(New SqlParameter("@sdate", SqlDbType.NVarChar,
10)).Value = MyDataGrid.Items(selIndex).Cells(5).Text
End With
'Code bombs out on the next line below
myCommand.ExecuteNonQuery()
Next
localConnection.Close()
End Sub
*** Sent via Developersdex http://www.developersdex.com ***
