none
Problema ao Carregar formulario completo RRS feed

  • Discussão Geral

  • Boa  Noite Pessoal,

    Gente preciso de ajuda em uma rotina, tenho um formulario com uma tabcontrol de 4 paginas, uma cadastro de contas, outra editar contas, outra relatorio, e outra baixar conta, abaixo o codigo para salvar os dados,

     Private Sub btngravardados_Click(sender As System.Object, e As System.EventArgs) Handles btngravardados.Click
    
            Me.Validate()
            Me.TbContaReceberBindingSource.AddNew()
            Me.TableAdapterManager.UpdateAll(Me.DataSetBdContaReceber)
    
            Me.txtdata.Text = Today
            Me.txtUsuarioLogado.Text = TelaInicial.txtusuariologado.Text
    
            Me.txttotalregistro.Text = Me.DgvContaReceber.RowCount - 2
            SomarValor()
            Me.txttipo.Focus()
    
        End Sub

    ai quando eu abro a pagina baixar contas e faço a baixa de varios titulos, segue codigo abaixo para baixar e colocar os titulos em outra tabela contas baixadas, segue abaixo,

    Private Sub btnbaixartituloCR_Click(sender As System.Object, e As System.EventArgs) Handles btnbaixartituloCR.Click
            Me.Validate()
            Me.TbTitulosPagosBindingSource.AddNew()
            Me.TableAdapterManager.UpdateAll(Me.DataSetBdContaReceber)
    
            MsgBox("Titulo baixado com Sucesso!!!", MsgBoxStyle.Information)
    
            Try
                Me.TbContaReceberTableAdapter.BaixarTituloCRDeleteQuery(Me.txtCod.Text)
            Catch ex As Exception
            End Try
            NovoForm()
        End Sub

    ai se quero cadastrar nova conta, clico na pagina cadastro para fazer o cadastro novo, mas o form que acabei de dar um novo form nele para atualizar o form, não atualiza, segue o codigo abaixo de novo form,

    Private Sub NovoForm()
            Dim NovForm As New ContasReceber
            NovForm.ShowDialog()
            Me.Close()
        End Sub

    ele ate abre novo form mas não esta carregando tudo, por exemplo olha o codigo abaixo do load do form,

    Private Sub ContasReceber_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
            TelaFormulario()
    
            Me.TbTitulosPagosTableAdapter.Fill(Me.DataSetBdContaReceber.TbTitulosPagos)
            Me.TbTitulosPagosBindingSource.AddNew()
            Me.TbContaReceberTableAdapter.Fill(Me.DataSetBdContaReceber.TbContaReceber)
            Me.TbContaReceberBindingSource.AddNew()
    
            Me.lblhoras.Text = Date.Now.ToLongTimeString
    
            Me.txtUsuarioLogado.Text = TelaInicial.txtusuariologado.Text
    
            Me.txtdata.Text = Today
            Me.txttotalregistro.Text = Me.DgvContaReceber.RowCount - 2
    
            If Me.txtCod.Text <= "1" Then
            ElseIf Me.txtCod.Text >= "1" Then
                SomarValor()
            End If
    
            Me.ReportViewer1ContasReceberAbertos.Visible = False
            Me.ReportViewer2ContasReceberTitulosBaixados.Visible = False
    
            OrdenarColuna()
    
        End Sub

    por exemplo a txt data teria que carregar com a data, e não esta carregando, outra coisa que acontece que não estou conseguindo entender, tenho um botao que abre um outro form dos clientes, para pesquisar o cliente e colocar os dados dele nas caixas de texto para fazer o cadastro de uma nova conta, quando faço o primeiro cadastro, ou ate varios em sequencia vai, mas se eu clicar em uma outra pagina do tabcontrol e faço uma baixa por exemplo de conta e depois quero cadastrar nova conta, não pega os dados e coloca nas textbox, o form abre a pesquisa realiza, ai fecha o form de pesquisa mas os dados não vem para as caixas de texto, por isso tentei usar esse codigo para new form, mas não esta funcionando.

    Quando trabalhava com VBA, e precisa fazer isso que estou explicando acima, eu fazia assim, 

    Unload Contas
    Contas.Show

    no VBA isso me resolvia tudo isso que esta ocorrendo acima, o fato e preciso de uma ajuda pra resolver isso, tem alguem que já passou por isso, ou tenho um exemplo de como resolver, acho que se eu conseguisse quando clicar em novo elee descarrega o form e depois já carrega, sem ter que fechar o form e o sistema e depois abrir de novo para fazer um cadastro, a em formularios simples de cadastro isso não acontece, somente quando o form tem mais de um dataset ligado a ele e quando ocorre de ter consultas, edição ai complica um pouco.

    Enfim espero ter conseguido explicar o problema para que alguem possa me dar uma ajuda nesse caso.

    Desde já agradeço, muito obrigado.

    Pablo Sousa.


    PabloSousa

    terça-feira, 25 de julho de 2017 02:13

Todas as Respostas

  • Boa Noite Pessoal,

    Consegui resolver esse problema acima, segue codigo abaixo.

     Private Sub novoformulario()
            Dim novform As New ContasReceber
            novform.Show()
            Me.Dispose()
     End Sub

    Não estava dando certo porque eu estava chamando meus formularios por showdialogs, e ai de pau, se chamar os form com show esse codigo e perfeito.

    Obrigado.

    Pablo Sousa.


    PabloSousa

    terça-feira, 8 de agosto de 2017 03:11