跪求微软日历控件使用问题~！怎么在日历上显示记录在数据库中的字段？？

zxggwan 2003-11-22 11:54:40

我要在日历中显示记录在数据库中的标题记录，主要是日志管理中的功能，我要每天下便能显示每日的工作日程标题！
测试地址：http://218.77.31.234/office/working
测试帐号：zcw
密码全是 123456
跟这个下边的日志管理的日历输入方法一样~！~！

...全文

306 33 打赏收藏转发到动态举报

写回复

用AI写文章

33 条回复

切换为时间正序

请发表友善的回复…

发表回复

raike 2003-11-26

打赏
举报

注册个新浪会员，进入Calendar，反正也是免费的

feng771214 2003-11-26

打赏
举报

谁把密码改了！

raike 2003-11-26

打赏
举报

http://calendar.sina.com.cn
先看看你的需求和新浪日历是否相似，我做的和它的差不多，在日历页面中可可以显示标志
我说的是功能，具体怎么做可以帮你。。。你先看看吧

raike 2003-11-26

打赏
举报

怎么没有？
这个是什么？

//如果每月的日期等于18日，就在日期单元格中添加 Holiday
if (e.Day.Date.Day == 18)
e.Cell.Controls.Add(new LiteralControl("<br>Holiday"));
}

这样就可以变通一下了，不用我讲得更详细了吧
你从数据库中读你的数据表，包括日期，内容

for (int i =0 ; i<DataTable.Rows.Count; i++)
{
DateTime m_date = DateTime（DataTable.Rows[i][日期]）；
//当e.Day.Date.Day ＝＝ “你的日期”
if(e.Day.Date == m_date)
{
e.Cell.Controls.Add (new LiteralControl("你要添加的内容"));
}
}

zxggwan 2003-11-26

打赏
举报

你的例子实现了单元格变色，没有把数据写到单元格中

zxggwan 2003-11-26

打赏
举报

选择日期查询数据库我已经实现了！~就是怎么把数据库中相应的字段值写到日历单元格中~！

raike 2003-11-26

打赏
举报

Calendar控件中，在日历显示出添加的内容
主要用Calendar的事件：Calendar1_DayRender
当Calendar加载的时候会逐个日期（日期单元格）进行加载

给你个简单的例子
private void Calendar1_DayRender(object sender, System.Web.UI.WebControls.DayRenderEventArgs e)
{
// Change the background color of the days in the month to yellow.
if (!e.Day.IsOtherMonth && !e.Day.IsWeekend)
e.Cell.BackColor=System.Drawing.Color.Yellow;

// Add custom text to cell in the Calendar control.

if (e.Day.Date.Day == 18)
e.Cell.Controls.Add(new LiteralControl("<br>Holiday"));
}

点击其中一个单元格，就会触发 Calendar1_SelectionChanged
private void Calendar1_SelectionChanged(object sender, System.EventArgs e)
{
//Calendar选择的日期
DateTime dateCalendar ;
dateCalendar = this.Calendar1.SelectedDate;
//根据选择日期，进行查询数据库处理
。。。。。。。。。。。
//执行相应操作
添加，修改，删除日期单元格的内容
}

kensli 2003-11-26

打赏
举报

我也很想知道
我也急需这个动东

zxggwan 2003-11-26

打赏
举报

给我先说说原理把

zxggwan 2003-11-25

打赏
举报

conbell 2003-11-24

打赏
举报

Sorry,上面的代码有点错误,更改如下:

Private Sub calDate_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles calDate.DayRender
Dim i As Integer
Dim p_stuHoliday As DateColorData()
Dim kk As New System.Web.UI.WebControls.Label

Try
p_stuHoliday = CType(Page.Session("RmPrintInfo")
If (e.Day.Date.DayOfWeek = DayOfWeek.Saturday) And (Not e.Day.IsOtherMonth) Then
e.Cell.ForeColor = System.Drawing.Color.Blue
ElseIf (e.Day.Date.DayOfWeek = DayOfWeek.Sunday) And (Not e.Day.IsOtherMonth) Then
e.Cell.ForeColor = System.Drawing.Color.Red
End If
If Not IsNothing(p_stuHoliday) Then
For i = 0 To p_stuHoliday.Length - 1
If Not e.Day.IsOtherMonth Then
If e.Day.Date.Date = p_stuHoliday(i).holiday_date Then
e.Cell.ForeColor = System.Drawing.Color.FromArgb(p_stuHoliday(i).color_red, p_stuHoliday(i).color_green, p_stuHoliday(i).color_blue)
kk.Text = "<br>外出"
e.Cell.Controls.Add(kk)
End If
End If
Next
End If
Catch ex As Exception
Throw ex
Finally
End Try
End Sub

conbell 2003-11-24

打赏
举报

Private Sub calDate_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles calDate.DayRender
Dim i As Integer
Dim p_stuHoliday As DateColorData()

Try
p_stuHoliday = CType(Page.Session("RmPrintInfo")
If (e.Day.Date.DayOfWeek = DayOfWeek.Saturday) And (Not e.Day.IsOtherMonth) Then
e.Cell.ForeColor = System.Drawing.Color.Blue
ElseIf (e.Day.Date.DayOfWeek = DayOfWeek.Sunday) And (Not e.Day.IsOtherMonth) Then
e.Cell.ForeColor = System.Drawing.Color.Red
End If
If Not IsNothing(p_stuHoliday) Then
For i = 0 To p_stuHoliday.Length - 1
If Not e.Day.IsOtherMonth Then
If e.Day.Date.Date = p_stuHoliday(i).holiday_date Then
e.Cell.ForeColor = System.Drawing.Color.FromArgb(p_stuHoliday(i).color_red, p_stuHoliday(i).color_green, p_stuHoliday(i).color_blue)
e.Cell.Text="XXXXXXXXXXXXXXXXX"
End If
End If
Next
End If
Catch ex As Exception
Throw ex
Finally
End Try
End Sub

zxggwan 2003-11-24