台灣最大程式設計社群網站
∣
免費加入會員
∣登入
∣回首頁∣
您好
線上人數
1860
會員總數:
246202
討論主題:
189774
討論區
程式下載/上傳
科技新聞
專欄文章
會員中心
加值服務
外包接案
求職求才
登入
登出
歡迎您
免費
加入會員
討論區選單
新手必讀
我要提問!!
討論區
個人討論區
我的關注主題
我的黑名單
討論區EP英雄榜
專家等級說明
討論區常見問題
兌換發問點數QP
扣點申請加值服務
申請版主
開發工具
ASP
ASP.NET
C#
VB.NET
VB6
C/C++
PHP
Java
Java Script/ Node.js
AJAX / JSON / jQuery
其他語言
行動裝置開發
Android APP 開發
iOS APP/ swift 開發
Windows Phone APP
資料庫
ACCESS
MS SQL
MySQL
Oracle
其他DB
多媒體 / 網管
CSS/HTML5/Bootstarp
影像處理
office VBA / WinOS
Windows 伺服器
Linux / Unix
網管 / 資安 / VM
硬體 / 週邊 / 其他
綜合
求職求才
外包接案
心情甘苦談
網站經營 / 合夥 / 證照
建言 / 公告
文章區
專欄文章
科技新聞
Blog精華文章
討論區列表
>>
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
目前尚無任何回覆
回覆
如要回應,請先
登入
.
|
網站導覽
|
網站介紹
|
4P點數說明
|
電子報
|
小舖活動
|
大事紀
|
廣告刊登
|
常見問題
|
聯絡我們
|
版權所有 ©copyright 2000 All Rights Reserved