Inquiridor
Problema ao Carregar formulario completo

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.Showno 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
- Tipo Alterado Filipe B CastroModerator quarta-feira, 26 de julho de 2017 12:18 how to
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