none
AJUDA - DADOS ESTATISTICOS RRS feed

  • Pergunta

  • Pessoal preciso de ajuda,tenho uma base dados com informação sobre incêndios, tenho esta datagridview, preciso agora criar um form que apareça alguns dados estatistico.

    Número de incêndios por concelho (eventualmente por freguesia) e a respetiva área ardida(double), número de incêndios por tipo e alerta.

    Agradeço a vossa Ajuda

    o que tenho na minha form é: o que devo então colocar.

    Public Class Lista_Nova

        Private Sub Listanova_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

            'Listagem de lista

            DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

            DataGridView1.AllowUserToAddRows = False

            DataGridView1.AllowUserToDeleteRows = False

            DataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically

            Dim adapter_lista As New RegistosDataSetTableAdapters.RegistoTableAdapter

            Dim tab_lista As New RegistosDataSet.RegistoDataTable

            adapter_lista.Fill(tab_lista)

            'atualiza os campos

            Dim adapter_concelho As New RegistosDataSetTableAdapters.ConcelhoTableAdapter

            Dim tab_concelho As New RegistosDataSet.ConcelhoDataTable

            adapter_concelho.Fill(tab_concelho)

            Dim adapter_freguesia As New RegistosDataSetTableAdapters.FreguesiaTableAdapter

            Dim tab_freguesia As New RegistosDataSet.FreguesiaDataTable

            adapter_freguesia.Fill(tab_freguesia)

            Dim adapter_alerta As New RegistosDataSetTableAdapters.AlertaTableAdapter

            Dim tab_alerta As New RegistosDataSet.AlertaDataTable

            adapter_alerta.Fill(tab_alerta)

            Dim adapter_tipo As New RegistosDataSetTableAdapters.TipoTableAdapter

            Dim tab_tipo As New RegistosDataSet.TipoDataTable

            adapter_tipo.Fill(tab_tipo)

            'fim actualização

            Dim coluna As DataColumn

            For Each coluna In tab_lista.Columns

               DataGridView1.Columns.Add(coluna.ColumnName, coluna.ColumnName)

            Next

            Dim linha As DataRow

            Dim idx_linha As Integer

            Dim idx_coluna As Integer

            idx_linha = 0

            Dim valor

            For Each linha In tab_lista.Rows

               Dim linha_datagrid As New DataGridViewRow

               DataGridView1.Rows.Add(linha_datagrid)

               idx_coluna = 0

               For Each coluna In tab_lista.Columns

                   valor = tab_lista.Rows(idx_linha).Item(idx_coluna)

                    'actualização

                   If idx_coluna = 3 Then valor = tab_concelho.FindByConcelho(valor).Concelho

                   If idx_coluna = 4 Then valor = tab_freguesia.FindByFregueisa(valor).Fregueisa

                   If idx_coluna = 6 Then valor = tab_alerta.FindByAlerta(valor).Alerta

                   If idx_coluna = 7 Then valor = tab_tipo.FindByTipo(valor).Tipo

                   'fim actualização

                   DataGridView1.Rows(idx_linha).Cells(idx_coluna).Value = valor

                   idx_coluna = idx_coluna + 1

                Next

                idx_linha = idx_linha + 1

                UpdateLabelText()

            Next

        End Sub

    sexta-feira, 10 de agosto de 2012 20:05