No saben mi felicidad
encontré la solución:
Es la línea con ******
Código PHP:
Private Sub llenar_partidas()
Dim lsLRsql As String
Try
LblSal.Text = "0"
lsLRsql = "select * from partidas where idpedido=" & Npedido & " order by idpartida asc"
Response.Write("<br>SQL<br>" + lsLRsql)
ocdJL_Command.Dispose()
ocdJL_Command = cn.putComand(lsLRsql, cLRcon)
rsAcceso = ocdJL_Command.ExecuteReader()
****** Cart.Clear() ******
While rsAcceso.Read
Dim dr As DataRow = Cart.NewRow()
dr(0) = rsAcceso.Item("a")
dr(1) = rsAcceso.Item("b")
dr(2) = rsAcceso.Item("c")
dr(3) = rsAcceso.Item("d")
dr(4) = rsAcceso.Item("e")
dr(5) = rsAcceso.Item("f")
dr(6) = rsAcceso.Item("g")
dr(7) = rsAcceso.Item("h")
dr(8) = rsAcceso.Item("i")
LblSal.Text = CDbl(LblSal.Text) + CDbl(Trim(rsAcceso.Item("importe")))
Response.Write("<br><font color=orange>-" & dr(0) & "-" & dr(3) & "-" & dr(2) & "-" & dr(1) & "-" & dr(7) & "-</font>")
Cart.Rows.Add(dr)
End While
CartView = New DataView(Cart)
BindGrid()
Catch ex As Exception
Response.Write(ex)
End Try
End Sub
No tienen idea de cuanto busqué, pero si encontré la solución
En fin, parece que sólo yo revise mi pregunta y pues encontré la solución; pero ojalá les sirva en alguna ocasión, saludos¡¡¡
