none
Problemas con el control chart: No se actualizan los cambios RRS feed

  • Pregunta

  • Necesito ayuda por favooor!

    Estoy realizando graficos de los diferentes pedidos de un determinado seguro, en este chart, me mostraria los seguros con las cantidades de pedidos que han tenido(osea todas las veces que ha sido vendido ese seguro).. El problema esta, cuando yo voy a registrar un pedido del seguro y una vez guardado, si me voy a ver el graficos, ese seguros todavia no sale graficado, sino que tengo que detener la ejercución del programa y despues cuando lo vuelvo a iniciar recien me aparece.. Como deberia hacer para que se vayan actualizando??

    Private Sub EstadísticasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EstadísticasToolStripMenuItem.Click
            Chart1.Visible = True
            DataGridView1.Visible = False

            conexion = New SqlConnection("server=(local);database=sancristobal;integrated security=SSPI")
            da = New SqlDataAdapter()

            Dim mostrar As New SqlCommand("SELECT se.descripcion as descripcion, COUNT(pe.codSeguro) AS Totales FROM PedidosCliente AS pe INNER JOIN Seguro AS se ON pe.codSeguro = se.codSeguro GROUP BY se.descripcion, pe.codSeguro", conexion)
            da.SelectCommand = mostrar

            datos = New DataSet()
            conexion.Open()
            da.Fill(datos, "PedidosCliente")
            conexion.Close()
            Me.actualizar()
            Form6.Actualizar()
            For Each row As DataGridViewRow In DataGridView1.Rows

                Dim dt As New DataTable
                dt.Columns.Add("Totales", Type.GetType("System.Int32"))
                dt.Columns.Add("descripcion", Type.GetType("System.String"))

                Dim newrow As DataRow = dt.NewRow()
                newrow("Totales") = CInt(row.Cells("Totales").Value)
                newrow("descripcion") = CStr(row.Cells("descripcion").Value)
                dt.Rows.Add(newrow)
                Me.actualizar()
                Form6.Actualizar()
            Next

            Chart1.Series(0).XValueMember = "descripcion"
            Chart1.Series(0).YValueMembers = "Totales"
            Chart1.DataSource = datos

        End Sub

    domingo, 22 de junio de 2014 19:00