отмечать в msflexgrid дни праздников из базы данных - PullRequest
Новая
       36

отмечать в msflexgrid дни праздников из базы данных

0 голосов
/ 19 марта 2019

Я хочу сделать запрос к базе данных, чтобы получить дату праздников и сравнить с днями в столбцах msflexgrid. Если есть совпадение, я хочу отметить его красным. 

Private Sub Text1_LostFocus(Index As Integer)
Select Case Index
    Case 1
        Grid.Clear
        fechainicial = "01/" & Text1(1) & "/" & Text1(0)
        numdias = DaysInMonth(fechainicial)
        Grid.Cols = numdias + 2
        For i = 0 To numdias
                With Grid
                    .Redraw = False
                    .Rows = 4
                    .FixedRows = 2
                    For ii = 0 To .Rows - 1
                        .RowHeight(ii) = 300
                    Next
                    .RowHeight(2) = 0
                    .ColWidth(0) = 300
                    .ColWidth(i + 1) = 450
                    If i <= .Cols - 3 Then
                        .TextMatrix(0, i + 1) = Format(CStr(FormatDateTime(fechainicial + i, vbShortDate)), "d")
                        .TextMatrix(1, i + 1) = UCase(Format(i + 1 & "/" & Text1(1) & "/" & Text1(0), "ddd"))
                    End If
                    If Weekday(fechainicial + i, vbMonday) = 7 Then
                        numc = i + 1
                        fila = 1
                        .Col = numc
                        .Row = fila
                        .CellForeColor = vbRed
                        .TextMatrix(2, i + 1) = "D"
                    End If

                    .ColWidth(.Cols - 1) = 900
                    .TextMatrix(0, .Cols - 1) = "HORAS"
                    .Col = 1
                    .Row = 3
                    .Redraw = True
                End With
            Next i
        'End If
End Select
End Sub

таблица базы данных: FESTIVOS, поля: id, fecha, descripcion

...