i = 2
        Try
            dr = dtR.NewRow()
            Do While sDays.Read()
                dr(0) = sDays.GetValue(0)  -  дата
                dr(1) = "R+"
                If IsDBNull(sDays.GetValue(7)) = False Then
                    dr(i) = sDays.GetValue(7)   -   данное
                Else
                    dr(i) = " "
                End If
                i = i + 1
                If i = 50 Then
                    i = 2
                    dtR.Rows.Add(dr)
                    dtR.AcceptChanges()
                End If
            Loop
            sDays.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Dim dv As New DataView(dtR)
        dv.AllowNew = True
        dv.AllowEdit = True
        dv.AllowDelete = True
        Me.DGView3.DataSource() = dv