calendar 如何有變換月份才更新 DayRender內容- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1860

會員總數：246202
討論主題：189774

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> calendar 如何有變換月份才更新 DayRender內容

[]

[我要回覆]

calendar 如何有變換月份才更新 DayRender內容
價值 : 20 QP 點閱數:677 回應數:0

樓主

MStone Lin

0	99
1960	132

發送站內信

請問

我用 calendar 作一行事曆

把會員的生日及預約表載入到dayrender

但每次點不同日期時，就會重新讀一次生日及預約表

如何判斷在切換月份時 (Calendar1_VisibleMonthChanged)

才會觸發重新讀取會員的生日及預約表再載入到dayrender

第一次pageload先載入
點選不同日期不重新載入
切換月份再重新載入

應該怎麼寫呢

謝謝

Public Sub Calendar1_VisibleMonthChanged(ByVal sender As Object, ByVal e As MonthChangedEventArgs)
       ??????
    End Sub

Protected Sub calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender

if ???? then

e.Cell.VerticalAlign = VerticalAlign.Top

Dim strDbCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;....."
        Dim conn As OleDbConnection = New OleDbConnection(strDbCon)
        conn.Open()

Dim sql2 As String = "select * from member where  MID(cbirth,4,2)='" & Right("0" & e.Day.Date.Month, 2) & "' "
        Dim objCmd As OleDbCommand = New OleDbCommand(sql2, conn)
        Dim dr As OleDbDataReader = objCmd.ExecuteReader()

While dr.Read

Dim csmonth As String = dr("cbirth").ToString.Substring(3, 2)
            Dim csday As String = Right(dr("cbirth").ToString, 2)

If e.Day.Date.Month = csmonth And e.Day.Date.Day = csday Then

Dim LB As New Label
                LB.ForeColor = Color.Red
                LB.Text = "<br>" & dr("cname").ToString.Trim
                e.Cell.Controls.Add(LB)

End If

End While

dr.Close()
        objCmd.Cancel()

Dim sql3 As String = "select * from reservation "
        Dim objCmd3 As OleDbCommand = New OleDbCommand(sql3, conn)
        Dim dr3 As OleDbDataReader = objCmd3.ExecuteReader()

While dr3.Read

Dim cstime As Date = FormatDateTime(dr3("rday"), DateFormat.ShortDate)

If e.Day.Date = cstime Then
                Dim LB1 As New Label
                LB1.ForeColor = Color.Blue
                LB1.Text = "<br>" & dr3("rname").ToString.Trim
                e.Cell.Controls.Add(LB1)
            End If

End While

dr3.Close()
        objCmd3.Cancel()

conn.Close()
        conn.Dispose()

end if

End Sub

搜尋相關Tags的文章： [ calendar ] , [ change ] ,
本篇文章發表於2018-10-30 12:04

目前尚無任何回覆

回覆

如要回應,請先登入.