none
Tabela Temporária RRS feed

  • Pergunta

  • Bem minha dúvida é a seguinte, o cara do trabalho me mostrou um código de um tabela temporária.
    Estou usando a mesma só que possuo duas dúvida para que utilizar uma tabela temporária e como ela funciona ?
    Segue o código da mesma:

    EVENTO LOAD DO FORM

     'TABELA TEMPORARIA PARCELAS GERADAS
                PARCELAS_GERADAS.Columns.Add("ID")
                PARCELAS_GERADAS.Columns.Add("NUMERODOC")
                PARCELAS_GERADAS.Columns.Add("PARCELAS")
                PARCELAS_GERADAS.Columns.Add("VENCIMENTO")
                PARCELAS_GERADAS.Columns.Add("VALOR")
                PARCELAS_GERADAS.Columns.Add("SITUACAO")

    E o evento click do botão

      Dim NumeroBoleto
                NumeroBoleto = GeraBoleto(resultado)
                Row("NUMERODOC") = NumeroBoleto + Convert.ToString(i)

                Row("PARCELAS") = Format("00" & txtControleParcelas.Text) + "/" + Format("00" & Convert.ToString(i))

                'O FicaData serve para valida se o Grid terá a data preenchida ou não
                'Pois se a combo "Variável a definir" estiver selecionada então o usuário que deverá escolher a data
                If FicaData = True Then
                    Row("VENCIMENTO") = Format(dataParc, "dd/MM/yyyy")
                ElseIf FicaData = False Then
                    Row("VENCIMENTO") = ""
                End If

                Row("VALOR") = resultado
                Row("SITUACAO") = "Em Aberto"

                PARCELAS_GERADAS.Rows.Add(Row)
                gvParcelasGeradas.DataSource = PARCELAS_GERADAS
                PreecheGridParcelas()

    E o método PreecheGridParcelas()

     Tabela = gvParcelasGeradas.DataSource
                If Novo = True Then
                    'CONFIGURA O GRID
                    With Me.gvParcelasGeradas
                        .DataSource = Tabela
                        .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                        .MultiSelect = False
                        .RowHeadersWidth = 25
                        .RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
                        .AllowUserToResizeRows = False


                        .Columns("NUMERODOC").HeaderText = "Número"
                        .Columns("PARCELAS").HeaderText = "Parcelas"
                        .Columns("VENCIMENTO").HeaderText = "Vencimento"
                        .Columns("VALOR").HeaderText = "Valor da Fatura"
                        .Columns("SITUACAO").HeaderText = "Situação da Fatura"

                        .Columns("NUMERODOC").Width = 250
                        .Columns("PARCELAS").Width = 200
                        .Columns("VENCIMENTO").Width = 250
                        .Columns("VALOR").Width = 150
                        .Columns("SITUACAO").Width = 150

                        'OCULTA COLUNA QUE NÃO DEVE APARECER NO GRID
                        .Columns("ID").Visible = False

                        'ORDEM DAS COLUNAS
                        .Columns("NUMERODOC").DisplayIndex = 0
                        .Columns("PARCELAS").DisplayIndex = 1
                        .Columns("VENCIMENTO").DisplayIndex = 2
                        .Columns("VALOR").DisplayIndex = 3
                        .Columns("SITUACAO").DisplayIndex = 4

                    End With
                Else

                    With Me.gvParcelasGeradas
                        .DataSource = Tabela
                        .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                        .MultiSelect = False
                        .RowHeadersWidth = 25
                        .RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
                        .AllowUserToResizeRows = False

                        .Columns("NUMERODOC").HeaderText = "Número do Documento"
                        .Columns("PARCELAS").HeaderText = "Parcelas"
                        .Columns("VENCIMENTO").HeaderText = "Vencimento"
                        .Columns("VALOR").HeaderText = "Valor da Fatura"
                        .Columns("SITUACAO").HeaderText = "Situação da Fatura"

                        .Columns("NUMERODOC").Width = 250
                        .Columns("PARCELAS").Width = 200
                        .Columns("VENCIMENTO").Width = 250
                        .Columns("VALOR").Width = 150
                        .Columns("SITUACAO").Width = 150

                        'OCULTA COLUNA QUE NÃO DEVE APARECER NO GRID
                        .Columns("ID").Visible = False

                        'ORDEM DAS COLUNAS
                        .Columns("NUMERODOC").DisplayIndex = 0
                        .Columns("PARCELAS").DisplayIndex = 1
                        .Columns("VENCIMENTO").DisplayIndex = 2
                        .Columns("VALOR").DisplayIndex = 3
                        .Columns("SITUACAO").DisplayIndex = 4



    quarta-feira, 6 de março de 2013 20:54

Respostas

Todas as Respostas