全部
.NET Framework
ASP
Web Services
.NET互联网桌面应用
VB
图表区
分析与设计
组件/控件开发
AppLauncher
问答

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

zxggwan 2003-11-22 11:54:40

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

...全文

231 点赞收藏 33

写回复

33 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

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

楼上老大~！~！能给我代码看看么？？？你要多少分说就行了~！~！

回复赞

raike 2003-11-24

这个很容易实现,我做的比它的好
看过sina 和yahoo的日历管理嘛?
我做的根他们的差不多

回复赞

zxggwan 2003-11-24

再来

回复赞

zxggwan 2003-11-24

up一下