none
FormatDateTime RRS feed

  • Pergunta

  • Como fazer para que toda vez que mudar o registro (navegação) os formatos dos campos que contenham data estejam formatados conforme as ultimas instruções do código abaixo.

    Private Sub mostraDados(ByVal idNS As Long)
    
        Dim dadosNS = From n In db.TNs
               Join sit In db.TSituacaos On n.num_ID_Situacao Equals sit.num_ID_Situacao
               Where (n.num_ID_NS > idNS)
              Select New With {.num_ID_NS = n.num_ID_NS,
                       .dat_Emissao = n.dat_Emissao,
                       .des_Situacao = sit.des_Situacao,
                       .dat_Compromissada = n.dat_Compromissada,
                       .dat_EntregaEmpreiteira = n.dat_EntregaEmpreiteira,
                       .dat_Prazo = n.dat_Prazo,
                       .dat_RemessaExecucao = n.dat_RemessaExecucao,
                       .cod_DocOrigem = n.cod_DocOrigem,
                       .num_US = n.num_US,
                       .num_ID_OrgaoEmitente = n.num_ID_OrgaoEmitente,
                       .num_ID_PlanoEM = n.num_ID_PlanoEM,
                       .num_ID_TipoDocOrigem = n.num_ID_TipoDocOrigem,
                       .num_ID_Turma = n.num_ID_Turma,
                       .num_ID_OrgaoExecutor = n.num_ID_OrgaoExecutor,
                       .tag_NSPrioritaria = n.tag_NSPrioritaria}
    
        Me.BindingSource1.DataSource = dadosNS
        Me.txt_NS.DataBindings.Add("Text", BindingSource1, "num_ID_NS")
        Me.txt_DTEmissao.DataBindings.Add("Text", BindingSource1, "dat_Emissao")
        Me.txt_DTCompromisso.DataBindings.Add("Text", BindingSource1, "dat_Compromissada")
        Me.txt_DTEntregaEMP.DataBindings.Add("Text", BindingSource1, "dat_EntregaEmpreiteira")
        Me.txt_DTPrazo.DataBindings.Add("Text", BindingSource1, "dat_Prazo")
        Me.txt_DTRemessaExec.DataBindings.Add("Text", BindingSource1, "dat_RemessaExecucao")
        Me.txt_NumDoc.DataBindings.Add("Text", BindingSource1, "cod_DocOrigem")
        Me.txt_Situacao.DataBindings.Add("Text", BindingSource1, "des_Situacao")
        Me.txt_USPlan.DataBindings.Add("Text", BindingSource1, "num_US")
        Me.cbo_Emitente.DataBindings.Add("SelectedValue", BindingSource1, "num_ID_OrgaoEmitente")
        Me.cbo_PlanoEM.DataBindings.Add("SelectedValue", BindingSource1, "num_ID_PlanoEM")
        Me.cbo_TipoDoc.DataBindings.Add("SelectedValue", BindingSource1, "num_ID_TipoDocOrigem")
        Me.cbo_Turma.DataBindings.Add("SelectedValue", BindingSource1, "num_ID_Turma")
        Me.cbo_Orgao.DataBindings.Add("SelectedValue", BindingSource1, "num_ID_OrgaoExecutor")
        Me.ckb_NSPrioritaria.DataBindings.Add("Checked", BindingSource1, "tag_NSPrioritaria")
    
        If Me.txt_DTEmissao.Text <> "" Then Me.txt_DTEmissao.Text = FormatDateTime(Me.txt_DTEmissao.Text, DateFormat.ShortDate)
        If Me.txt_DTCompromisso.Text <> "" Then Me.txt_DTCompromisso.Text = FormatDateTime(Me.txt_DTCompromisso.Text, DateFormat.ShortDate)
        If Me.txt_DTEntregaEMP.Text <> "" Then Me.txt_DTEntregaEMP.Text = FormatDateTime(Me.txt_DTEntregaEMP.Text, DateFormat.ShortDate)
        If Me.txt_DTPrazo.Text <> "" Then Me.txt_DTPrazo.Text = FormatDateTime(Me.txt_DTPrazo.Text, DateFormat.ShortDate)
        If Me.txt_DTRemessaExec.Text <> "" Then Me.txt_DTRemessaExec.Text = FormatDateTime(Me.txt_DTRemessaExec.Text, DateFormat.ShortDate)
      End Sub

    Sergio Ivanenko
    sábado, 18 de setembro de 2010 19:16

Respostas

  • Resolvi assim:

    Private Sub txt_DTEmissao_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_DTEmissao.TextChanged, txt_DTRemessaExec.TextChanged, txt_DTPrazo.TextChanged, txt_DTEntregaEMP.TextChanged, txt_DTCompromisso.TextChanged
        If Me.txt_DTEmissao.Text <> "" Then Me.txt_DTEmissao.Text = FormatDateTime(Me.txt_DTEmissao.Text, DateFormat.ShortDate)
        If Me.txt_DTCompromisso.Text <> "" Then Me.txt_DTCompromisso.Text = FormatDateTime(Me.txt_DTCompromisso.Text, DateFormat.ShortDate)
        If Me.txt_DTEntregaEMP.Text <> "" Then Me.txt_DTEntregaEMP.Text = FormatDateTime(Me.txt_DTEntregaEMP.Text, DateFormat.ShortDate)
        If Me.txt_DTPrazo.Text <> "" Then Me.txt_DTPrazo.Text = FormatDateTime(Me.txt_DTPrazo.Text, DateFormat.ShortDate)
        If Me.txt_DTRemessaExec.Text <> "" Then Me.txt_DTRemessaExec.Text = FormatDateTime(Me.txt_DTRemessaExec.Text, DateFormat.ShortDate)
      End Sub

    Sergio Ivanenko
    • Marcado como Resposta Ivanenko sábado, 18 de setembro de 2010 20:04
    sábado, 18 de setembro de 2010 20:04
  • No evento CurrentChanged do BindingSource coloca o Método que faz a formatação de Data.

    Referência:

    http://msdn.microsoft.com/en-us/library/system.windows.forms.bindingsource.currentchanged.aspx

    • Marcado como Resposta Ivanenko domingo, 19 de setembro de 2010 00:13
    sábado, 18 de setembro de 2010 20:05

Todas as Respostas

  • Resolvi assim:

    Private Sub txt_DTEmissao_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_DTEmissao.TextChanged, txt_DTRemessaExec.TextChanged, txt_DTPrazo.TextChanged, txt_DTEntregaEMP.TextChanged, txt_DTCompromisso.TextChanged
        If Me.txt_DTEmissao.Text <> "" Then Me.txt_DTEmissao.Text = FormatDateTime(Me.txt_DTEmissao.Text, DateFormat.ShortDate)
        If Me.txt_DTCompromisso.Text <> "" Then Me.txt_DTCompromisso.Text = FormatDateTime(Me.txt_DTCompromisso.Text, DateFormat.ShortDate)
        If Me.txt_DTEntregaEMP.Text <> "" Then Me.txt_DTEntregaEMP.Text = FormatDateTime(Me.txt_DTEntregaEMP.Text, DateFormat.ShortDate)
        If Me.txt_DTPrazo.Text <> "" Then Me.txt_DTPrazo.Text = FormatDateTime(Me.txt_DTPrazo.Text, DateFormat.ShortDate)
        If Me.txt_DTRemessaExec.Text <> "" Then Me.txt_DTRemessaExec.Text = FormatDateTime(Me.txt_DTRemessaExec.Text, DateFormat.ShortDate)
      End Sub

    Sergio Ivanenko
    • Marcado como Resposta Ivanenko sábado, 18 de setembro de 2010 20:04
    sábado, 18 de setembro de 2010 20:04
  • No evento CurrentChanged do BindingSource coloca o Método que faz a formatação de Data.

    Referência:

    http://msdn.microsoft.com/en-us/library/system.windows.forms.bindingsource.currentchanged.aspx

    • Marcado como Resposta Ivanenko domingo, 19 de setembro de 2010 00:13
    sábado, 18 de setembro de 2010 20:05