VB6, Visual Basic 6, VSFlexGrid, Динамическое обновление рекордсета (ADODB.Recordset) и источника данных (DataSource) через VSFlexGrid

Visual Basic 6

rcd - рекордсет (ADODB.Recordset)
fg - VSFlexGrid
cn - соединение с базой данных (ADODB.Connection)

fg.Editable = flexEDKbdMouse
fg.DataMode = flexDMBoundBatch
rcd.Open "SELECT * FROM r_Prods", cn, adOpenDynamic, adLockPessimistic

...... (Внести изменения в таблицу)

rcd.UpdateBatch ......(Записать изменения)

rcd.CancelBatch ......(Отменить изменения)

Теги: VB6, Visual Basic 6, VSFlexGrid, Динамическое обновление рекордсета, ADODB.Recordset, источник данных, DataSource

VB6, Visual Basic 6, VSFlexGrid, присвоить системное имя (наименование) колонке (полю) в гриде

Visual Basic 6

fg - VSFlexGrid
3 - порядковый номер поля (колонки)

fg.ColKey(3) = "BarCode"

Теги: VB6, Visual Basic 6, VSFlexGrid, присвоить системное имя (наименование) колонке (полю) в гриде

VB6, Visual Basic 6, VSFlexGrid, Удаление выделенных строк (выделенной строки) из грида

Visual Basic 6

fg - VSFlexGrid

If fg.SelectedRows > 0 Then
     For i = 0 To fg.SelectedRows - 1
         fg.RemoveItem fg.SelectedRow(0)
     Next
End If

Теги: VB6, Visual Basic 6, VSFlexGrid, Удаление выделенных строк (выделенной строки) из грида

VB6, Visual Basic 6, VSFlexGrid, Значение поля (столбца) у текущей строки, TextMatrix, значение ячейки, индекс колонки (столбца), ColIndex

Visual Basic 6

fg - VSFlexGrid
fg.Row - текущая строка грида

MsgBox fg.TextMatrix(fg.Row, fg.ColIndex("ColName"))

Теги: VB6, Visual Basic 6, VSFlexGrid, Значение поля (столбца) у текущей строки, TextMatrix, значение ячейки, индекс колонки (столбца), ColIndex

VB6, Visual Basic 6, VSFlexGrid, Растянуть последнюю колонку до границы грида

Visual Basic 6

fg - VSFlexGrid

fg.ExtendLastCol = true

Теги: VB6, Visual Basic 6, VSFlexGrid, Растянуть последнюю колонку до границы грида

VB6, Visual Basic 6, VSFlexGrid, TextMatrix, значение ячейки, пербор грида, обход грида, цикл по гриду

Visual Basic 6

TextMatrix - значение ячейки
fg - VSFlexGrid
Height - имя (наименование) поля

For i = fg.FixedRows To fg.Rows - 1
     If Trim(fg.TextMatrix(i, fg.ColIndex("Height"))) = "0" Then
         MsgBox "Значение не должно равняться 0"
         Exit Sub
     End If
Next i

Теги: VB6, Visual Basic 6, VSFlexGrid, TextMatrix, значение ячейки, пербор грида, обход грида, цикл по гриду