therealzeta
Member
- Joined
- Aug 9, 2008
- Messages
- 19
- Programming Experience
- 5-10
I copied this code form a very detailed tutorial, but, I am having a error just on this line:
Can anyone help me???
VB.NET:
Protected Sub dsGrid(ByVal sender As Object, ByVal e As ObjectDataSourceMethodEventArgs) Handles dsGrid.Inserting
Error 1 'dsGrid' already declared as 'Protected Dim WithEvents dsGrid As System.Web.UI.WebControls.SqlDataSource' en class.C:\Inetpub\wwwroot\Consultorio\webProducto.aspx 14 17 C:\...\Consultorio\
Can anyone help me???
VB.NET:
protected Sub dsGrid(ByVal sender As Object, ByVal e As ObjectDataSourceMethodEventArgs) Handles dsGrid.Inserting
' Programmatically reference Web controls in the inserting interface...
' from this point on, i dont have any problem
Dim DistribuidorId As DropDownList = GridView1.FooterRow.FindControl("ComboFootDistribuidor")
Dim barcode As TextBox = GridView1.FooterRow.FindControl("txtfootbarcode")
Dim nombre As TextBox = GridView1.FooterRow.FindControl("txtfootnombre")
Dim sust_Activa As TextBox = GridView1.FooterRow.FindControl("txtfootSustancia")
Dim Envase As DropDownList = GridView1.FooterRow.FindControl("comboFootEnvase")
Dim cantEnv As TextBox = GridView1.FooterRow.FindControl("txtFootEnvCant")
Dim costoEnv As TextBox = GridView1.FooterRow.FindControl("txtFootEnvcosto")
Dim ventaEnv As TextBox = GridView1.FooterRow.FindControl("txtfootEnvVenta")
Dim minimo As DropDownList = GridView1.FooterRow.FindControl("comboFootMinimo")
Dim cantmin As TextBox = GridView1.FooterRow.FindControl("txtfootminCant")
Dim costoMin As TextBox = GridView1.FooterRow.FindControl("txtFootmincosto")
Dim ventaMin As TextBox = GridView1.FooterRow.FindControl("txtFootMinVenta")
'Dim NewUnitsInStock As TextBox = _
'GridView1.FooterRow.FindControl("NewUnitsInStock")
' Set the ObjectDataSource's InsertParameters values...
e.InputParameters("DistribuidorId") = DistribuidorId.SelectedValue
e.InputParameters("barcode") = barcode.Text
e.InputParameters("nombre") = nombre.Text
e.InputParameters("sus_activa") = sust_Activa.Text
e.InputParameters("envase") = Envase.SelectedValue
e.InputParameters("cantEnv") = cantEnv.Text
e.InputParameters("costoEnv") = costoEnv.Text
e.InputParameters("ventaEnv") = ventaEnv.Text
e.InputParameters("minimo") = minimo.SelectedValue
e.InputParameters("cantmin") = cantmin.Text
e.InputParameters("costomin") = costoMin.Text
e.InputParameters("ventamin") = ventaMin.Text
Last edited by a moderator: