主题：817事务日历改进-多个日历

没事不要乱改，要改先看懂代码啊。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的日历20140827.rar

留意红色代码

    Private Sub My_日历标签_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter, pl.MouseEnter
        Me.pl.ForeColor = Color.Red
        Dim str As String = _主表dr(n主题) & vbCrLf & _主表dr(n内容)
        zxbToolTip.SetToolTip(sender, str)
    End Sub

去搜索关键字 我的日历

回复10楼，代码要加一下判断

Me.pl.ForeColor = Color.Red
If  _主表dr IsNot Nothing
    Dim str As String = _主表dr(n主题) & vbCrLf & _主表dr(n内容)
    zxbToolTip.SetToolTip(sender, str)
End If

测试。并不会有你说的问题