hola amigos como estan tengo un problema y la verdad nose porque sera
copie un codigo de una pagina y cambie lo necesario , en esta pagina tengo un datagrid que se llama dtg_carrera, al principio me salia esa señal que hay un error ahi com medio subrayado.
luego ya no mesalio pero al compilar me sale dos errores :
C:\Inetpub\wwwroot\SAEAuditor\Totalescarreras.aspx .vb(78,0): error BC30451: No se ha declarado el nombre 'dtg_carreras'.
C:\Inetpub\wwwroot\SAEAuditor\Totalescarreras.aspx .vb(102,0): error BC30456: 'dtg_carreras' no es un miembro de 'SAEAuditor.Totalescarreras'.
y no entiendo la verdad porque esto mismo en la otra pagina funciona sin novedad ahi el datagrid se llama dtg_procesos........
con todo aqui les envio el codigo, para que lo revisen y queme ayuden en esto muchas gracias
Imports System.Data.SqlClient
Namespace SAEAuditor
Partial Class Totalescarreras
Inherits System.Web.UI.Page
#Region " Código generado por el Diseñador de Web Forms "
'El Diseñador de Web Forms requiere esta llamada.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
'NOTA: el Diseñador de Web Forms necesita la siguiente declaración del marcador de posición.
'No se debe eliminar o mover.
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: el Diseñador de Web Forms requiere esta llamada de método
'No la modifique con el editor de código.
InitializeComponent()
End Sub
#End Region
Dim cadena As String
Dim Pr As New Funciones
Dim Gr As New Graficar
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
'aumente desde aqui
If (Session("Login") = "0") Then
Response.Redirect("login.aspx")
End If
'If (Session("NumAuditoria") = "0") Then
'Response.Redirect("ListadoAuditorias.aspx")
'End If
If Not Page.IsPostBack Then
lstTipoGraficos.Items.Clear()
lstTipoGraficos.Items.Add(New ListItem("Columnas", "1"))
lstTipoGraficos.Items.Add(New ListItem("Lineas", "2"))
lstTipoGraficos.Items.Add(New ListItem("Pie", "3"))
lstTipoGraficos.Items.Add(New ListItem("Barra", "4"))
lstTipoGraficos.Items.Add(New ListItem("Area", "5"))
'lstTipoGraficos.Items.Add(New ListItem("XY", "6"))
imgGrafico.Visible = False
End If
'hasta aca
cadena = "SELECT codcar,nomcar, SUM(num_err) Total FROM VnumeroErrores GROUP BY codcar,nomcar"
Pr.CargarObjeto(dtg_carreras, cadena, "Auditor", Session("Clave"))
CargarGrafico("1", False)
End Sub
Private Sub btn_atras_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_atras.Click
Response.Redirect("ListadoAuditorias.aspx")
End Sub
Private Sub btn_print_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_print.Click
Response.Redirect("wf_acumulado.aspx") ' presentar reporte
End Sub
Sub Sort_Grid(ByVal sender As Object, ByVal e As DataGridSortCommandEventArgs) ' Handles DataGrid2.SelectedIndexChanged
' para ordenar los datos
Dim con As New Conexiones
Dim conexion As SqlConnection
conexion = con.ConectarBDD("Auditor", Session("Clave"))
cadena = "SELECT codcar, nomcar, SUM(num_err)as Total FROM VnumeroErrores GROUP BY codcar,nomcar order by " & e.SortExpression.ToString()
Dim ejecon1 As New SqlDataAdapter
ejecon1 = New SqlDataAdapter(cadena, conexion)
Dim data As New DataSet1
ejecon1.Fill(data, "carreras")
dtg_carreras.DataSource = data.Tables("carreras").DefaultView
dtg_carreras.DataBind()
End Sub
Private Sub CargarGrafico(ByVal TipoGrafico As String, ByVal MostrarValores As Boolean)
Dim lngTipoGrafico As Graficar.TipoGrafico 'Variable del tipo de la enum
Dim DatosX, DatosY As String
Dim i As Integer
Dim flag As Boolean
Dim MaxY, MaxX As Integer
Dim Excluir, TituloX, TituloY, Leyenda, Titulo As String
Excluir = "999"
TituloX = "Carreras"
TituloY = "No. Errores"
Leyenda = "Número de Errores por Carrera"
Titulo = "Análisis por Carrera"
'Convertimos la selección del tipo de grafico de la lista de selección en un
'valor de tipo enum TipoGrafico
lngTipoGrafico = CType(Long.Parse(TipoGrafico), Graficar.TipoGrafico)
DatosX = ""
DatosY = ""
flag = False
MaxY = 0
MaxX = 0
For i = 0 To Me.dtg_carreras.Items.Count - 1
If Me.dtg_carreras.Items(i).Cells(1).Text <> Excluir Then
If flag Then
DatosX &= Chr(9)
DatosY &= Chr(9)
End If
flag = True
DatosX &= Me.dtg_carreras.Items(i).Cells(2).Text
DatosY &= Me.dtg_carreras.Items(i).Cells(3).Text
If CDbl(Me.dtg_carreras.Items(i).Cells(3).Text) > MaxY Then
MaxY = CDbl(Me.dtg_carreras.Items(i).Cells(3).Text)
End If
MaxX += 1
End If
Next i
Gr.Hacer_Grafico(lngTipoGrafico, DatosX, DatosY, MaxX, MaxY, MostrarValores, Titulo, Leyenda, TituloX, TituloY)
imgGrafico.ImageUrl = "imagenes/grafico.gif"
imgGrafico.Visible = True
End Sub
Protected Sub btn_Generar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_Generar.Click
CargarGrafico(lstTipoGraficos.SelectedItem.Value, chkValor.Checked)
End Sub
End Class
End Namespace
