R
Roy
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.FindColumn(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
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.FindColumn(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