Класс предназначен для инициализации соединения с базой. Необходим, если в задаче в гридерах отображаются данные только из одной базы данных. В этом случае гридер может быть инициализирован одним SQL-предложением. Если в приложении необходимо отображать одновременно в разных гридерах данные из несколько баз, то можно воспользоваться инициализацией гридера на основе уже готового объекта System.Data.DataTable.

• Sub InitCn(ByVal rCn As OleDb.OleDbConnection) - инициализация соединения на базу.
• ReadOnly Property Cn() As OleDb.OleDbConnection - ссылка на соединение.
• ReadOnly Property IsInitCn() As Boolean - проверка на наличие соединения с базой в диспетчере.
• Sub Dispose() - подготовить объект к терминированию.

Собственно сам визуальный компонент.

• Sub Init(ByVal rSqlSelect As String, Optional ByVal rSqlWherePorgram As String = Nothing, Optional ByVal rSqlWhereUser As String = Nothing, Optional ByVal rOrderByField As Integer = -1, Optional ByVal rOrder As OrderByEnum = eOrderBy_Asc, Optional ByVal rOrderBy As String = Nothing) -
• Sub Init( ByVal rDt As DataTable, Optional ByVal rOrderByField As Integer = -1, Optional ByVal rOrder As OrderByEnum = eOrderBy_Asc) -
• Sub Term() - подготовливает объект к терминированию.
• Sub Requery(Optional ByVal rRowFilter As String = Nothing, Optional ByVal rReload As Boolean = True) -
• ReadOnly Property ColSel() As Integer - номер текущей колонки.
• Sub MovePrev() - программно переводит курсор текущей записи на предыдущую запись.
• Sub MoveNext() - программно переводит курсор текущей записи на следущую запись.
• Function DeleteFromDataTable(ByVal dr As DataRow) As Boolean -
• Sub UpdateToDataTable(ByVal rField As String, ByVal rValue As Object) -
• Function IsInit() As Boolean - присвоен ли гридеру источник данных.
• Sub Draw() -
• ReadOnly Property DataTable() As DataTable - возвращает ссылку на объект Data.DataTable, которым гридер проинициализирован.
• Property DrawingLock() As Boolean - блокировать ли отрисовку при изменении визуальных свойств компонента. Полезно для увеличения скорости инициализации гридера.
• Property AlignNumeric() As HorizontalAlignment - куда по умолчанию будет выравниваться числовое поле, если в настройке гридера для поля выравнивание не указано.
• Property AlignDate() As HorizontalAlignment - куда по умолчанию будет выравниваться поле даты, если в настройке гридера для поля выравнивание не указано.
• Property AlignBoolean() As HorizontalAlignment - куда будет выравниваться логические поле, если в настройке гридера для поля выравнивание не указано.
• Property FormatDouble() As String - формат поля числа с плавающей точкой по умолчанию.
• Property FormatDecimal() As String -
• Property FormatDate() As String - формат поля даты по умолчанию.
• Property LockOrder() As Boolean -
• Property LockEdit() As Boolean -
• Property MultiSelect() As Boolean - возможность выделять несколько записей в гридере (использую кнопку Ctrl на клавиатуре).
• Property MultiCheck() As Boolean - возможность выделять записи используя чекбоксы, которые появляются слева, если режим включен.
• ReadOnly Property SelectedRowsCount() As Integer - количество выделенных записей в гридере.
• ReadOnly Property SelRow() As DataRow - возвращает текущую строку гридера.
• ReadOnly Property SelRowIdx() As Integer - индекс текущей строки.
• Function GetSelectedRows(ByRef dr As DataRow()) As Boolean - возвращает в переменную переданную по ссылке массив текущих строк, возвращаемое значение функции сообщает есть ли в массиве хотя бы один элемент. Используется если режим MultiSelect включен.
• Function GetCheckedRows(ByRef dr As DataRow()) As Boolean - возвращает в переменную переданную по ссылке массив строк выделенных флажками, возвращаемое значение функции сообщает есть ли в массиве хотя бы один элемент. Используется если режим MultiCheck включен.
• Function GetValue(ByVal rField As Integer, Optional ByVal rDefault As Object = Nothing) As Object -
• Function GetValue(ByVal rField As String, Optional ByVal rDefault As Object = Nothing) As Object -
• Function GetValueRow(ByVal rRow As Integer, ByVal rField As Integer, Optional ByVal rDefault As Object = Nothing) As Object -
• Function GetValueRow(ByVal rRow As Integer, ByVal rField As String, Optional ByVal rDefault As Object = Nothing) As Object -
• Sub SetColsCaption(ByVal rArr As Object) -
• Sub SetColsAlign(ByVal rArr As Object) -
• Sub SetColsFormat(ByVal rArr As Object) -
• Sub SetColsWidth(ByVal rArr As Object, Optional ByVal rDefault As Integer = cHeadMinWidth) -
• Sub SetColsWidthPercent(ByVal rArr As Object, Optional ByVal rDefault As Integer = 0) -
• Sub SetColsPicture(ByVal rArrPic As Object, ByVal rArrKey As Object) -
• Sub SetColsDrawField(ByVal rArr As Object) -
• Sub SetColsLockOrder(ByVal rArr As Object) -
• Sub SetColsLockFocus(ByVal rArr As Object) -
• Sub SetColsLockEdit(ByVal rArr As Object) -
• Sub SetColsType(ByVal rArr As Object) -
• Function ColumnCount() As Integer -
• Function Columns(ByVal rColIdx As Integer) As HeadType -
• Property Sql() As String -
• Property ProgramWhere() As String -
• Property UserWhere() As String -
• Property RowColor1() As Color -
• Property RowColor2() As Color -
• Property RowTextColor1() As Color -
• Property RowTextColor2() As Color -
• Property HeadColor() As Color -
• Property HeadTextColor() As Color -
• Property GridColor() As Color -
• Property RowSelColor() As Color -
• Property RowSelFocusColor() As Color -
• Property RowSelTextColor() As Color -
• Property RowSelFocusTextColor() As Color -
• Property CellBorderSelColor() As Color -
• Property CellBorderSelFocusColor() As Color -
• Property HeadStyle() As HeadStyleEnum -
• Event BeforeRowChange(ByVal rRowIdx As Integer, ByRef rCancel As Boolean) -
• Event RowChange(ByVal rEOF As Boolean) -
• Event ColChange() -
• Event RowDelete(ByVal rEOF As Boolean) -
• Event RowDblClick(ByVal rRow As Integer, ByVal rCol As Integer) -
• Event ColumnResize(ByVal rCol As Integer, ByVal rWidth As Integer) -
• Event ColumnSort(ByVal rCol As Integer, ByVal rOrder As OrderByEnum) -
• Event DrawField(ByVal rRow As Integer, ByVal rCol As Integer, ByRef rVal As Object) -
• Event UpdateField(ByVal dr As DataRow, ByVal rField As String, ByVal rValue As Object, ByRef rCancel As Boolean) -
• Event CheckChange(ByVal dr As DataRow, ByVal rCheck As Boolean, ByRef rCancel As Boolean) -
• Event FindStringChange() -