none
Calendario en ASp.net vb.net utilizando DayRender event RRS feed

  • Pregunta

  • Buenos dias, quisiera pedirle su ayuda porque ya le he dado mil vueltas y no logro solucionar, estoy haciendo un calendario en Asp.net y el codigo es en VB.net, este calendario utiliza DayRender para tomar de la base de datos las actividades y crea un textBox al interior del dia, tengo un textBox al interior de un Hyperlink, el funcionamiento que necesito es que una vez inscrito en el calendario si seleccione ese textBox me permita modificar o borrar esos registro de la base de datos SQL server abriendo una nueva WebForm con los datos de ese textBox, no se si me explico bien, acontinuacion les escribo el procedimiento que uso, espero que puedan ayudarme, muchas gracias de antemano, o si hay otra mejor opcion les agradeceria sus recomendaciones

    Protected

    SubCalendar1_DayRender(ByValsender AsObject,

               

    ByVale AsSystem.Web.UI.WebControls.DayRenderEventArgs) _

               

    HandlesCalendar1.DayRender

           

    DimnextDate AsDateTime


           

    IfNotdsCalendrier IsNothingThen


               

    ForEachdr AsDataRowIndsCalendrier.Tables(0).Rows

                    nextDate =

    CDate(Convert.ToInt32(dr("annee")) & "-"& Convert.ToInt32(dr("mois")) & "-"& Convert.ToInt32(dr("jour")))

                   

    'Dim chaine As String = ""


                   

    'chaine &= "Id: " & Convert.ToInt32(dr("id")) & Environment.NewLine & "Nom: " & dr("Nom_Usager").ToString & " " & dr("Prenom_Usager").ToString & Environment.NewLine & "Catégorie " & dr("titre").ToString


                   

    IfnextDate = e.Day.Date Then


                       

    Dimlink = NewHyperLink()

                        e.Cell.Controls.Add(link)

                        link.Font.Size =

    NewFontUnit(FontSize.Small)

                        link.ForeColor = System.Drawing.

    Color.Black

                        txtEvennement =

    NewTextBox()

                        txtEvennement.Text =

    "Date: "& nextDate & Environment.NewLine & "Id: "& Convert.ToInt32(dr("id")) & Environment.NewLine _

                                &

    "Nom: "& dr("Nom_Usager").ToString & " "& dr("Prenom_Usager").ToString & Environment.NewLine & "Catégorie "& dr("titre").ToString

                        txtEvennement.Font.Size =

    NewFontUnit(FontSize.Small)

                        txtEvennement.ForeColor = System.Drawing.

    Color.Black

                        txtEvennement.BackColor = Drawing.

    Color.LightCyan

                        txtEvennement.BorderStyle =

    BorderStyle.Outset

                        txtEvennement.BorderColor = Drawing.

    Color.White

                        txtEvennement.TextMode =

    TextBoxMode.MultiLine

                        txtEvennement.ReadOnly =

    True


                        e.Cell.Controls.Add(txtEvennement)

                        link.Text =

    "</br>"& "Modifier"


                        link.NavigateUrl =

    "ModifierReservation.aspx"


                   

    EndIf


               

    Next


           

    EndIf


       

    EndSub

    martes, 19 de enero de 2016 13:53