Problema ao Carregar formulario completo

Question

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

Answer 1

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