none
LOOP PARA PEGAR CADA DIA DA SELEÇÃO DO MONTHCALENDAR RRS feed

  • Pergunta

  • Senhores,

    Como faço para pegar as datas selecionadas de um Monthcalendar?

    Gostaria de criar uma listagem, com as datas da seleção através de um Loop

    O usuário seleciona um período no Monthcalendar por exemplo : dia 1/ dia 2/ dia 3

    Eu gero uma lista

    Data           | Dirigente

    01/06/2011 | joão

    02/06/2011 | antonio

    03/06/2011 | pedro

    Tô fazendo assim :

    Terrcontroles = New TerrcontrolesBLL
            Dim terrcontrole = New TerrcontrolesDTO
            Dim terrsequencia = New TerrcontrolesDTO
            Dim i As Integer
            Dim DataInicio As Date = MonthCalendar1.SelectionStart
            Dim DataFinal As Date = MonthCalendar1.SelectionEnd
            Dim diff As TimeSpan
            diff = DataFinal - DataInicio
            Try
                terrsequencia.TCONTROL_SEQ = Terrcontroles.ProximoRegTerrcontroles
                Me.lbSEQUENCIAL.Text = Terrcontroles.ProximoRegTerrcontroles
                Dim bll = New TerrcontrolesBLL
                bll.adicionaTerrsequencias(terrsequencia)

                For i = 0 To diff.Days

                    terrcontrole.TCONTROL_SEQ = Me.lbSEQUENCIAL.Text

                    terrcontrole.TCONTROL_DATA = DiaDaSelecao ====> aqui a minha dúvida como pegar cada data da seleção No Loop?
                 
                    terrcontrole.DIR_NOME = Dirigente(DiaDaSelecao)
               


                    bll.adicionaTerrcontroles(terrcontrole)
                Next
            Catch ex As Exception
                If MessageBox.Show(ex.Message) Then
                End If
            End Try

     

    Obrigado a todos pela Ajuda

     

    quinta-feira, 9 de junho de 2011 17:33

Respostas

Todas as Respostas