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

 那你就把全局事件的代码全局拷贝进去。

 或者做一个出错的例子发上来。

加一列日期列，取值 事务时间 的日期部分。

或者循环每一行，取值，放入集合。

汗

Sub New()
        MyBase.New()
        Me.MinimumSize = New Size(48, 24)                         '固定最小尺寸
        Me.Location = New Point(0, 0)
        Me.Size = New Size(580, 440)
        Me.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.Name = "日历控件"
        Me.ScrollBars = Windows.Forms.ScrollBars.None               '不显示滚动条
        Me.BorderStyle = 0                                          '无边框
        Me.HighLight = C1.Win.C1FlexGrid.HighLightEnum.Never        '不高亮显示选定区
        Me.DrawMode = C1.Win.C1FlexGrid.DrawModeEnum.OwnerDraw      '绘制模式
        Me.Cols.Count = 8                                           '表格的列数
        Me.Cols(0).Visible = False                                  '隐藏标题列
        Me.Rows.Count = 14                                          '表格的行数
        Me.Rows(0).Visible = False                                  '隐藏标题行
        Me.AllowEditing = False                                     '禁止编辑
        _my日历 = Me
    End Sub

汗，改一下

    Private Sub 表格计算()
        _月首 = CDate(Format(_date, "yyyy-MM-" & "01"))                         '获取当月的第一天日期
        Dim i_月首星期 As Integer = _月首.DayOfWeek                             '获取当月第一天是星期几
        _表首 = _月首.AddDays(-i_月首星期 + 1)                                  '获取表格第一天的日期,加一是因为从星期一开始
        Dim i_天数 As Integer = DateTime.DaysInMonth(_date.Year, _date.Month)   '获取当月的天数
        _日期行数 = Math.Ceiling((i_天数 + i_月首星期 - 1) / 7)                 '减一是因为从星期一开始
        _表尾 = _表首.AddDays(_日期行数 * 7 - 1)
        _表格行数 = _日期行数 * 2 + 2                                           '表格的行数
        Me.Rows.Count = _表格行数
        表格赋值()
    End Sub