Заголовок



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



ST1 - имя панели вкладок

If ST1.Tab = 3 Then .....Если активна вкладка 4

ST1.TabEnabled .....Проверка и установка доступности вкладки на панели закладок



chkBox.Value = 1 (отмечено)
chkBox.Value = 0 (не отмечено)



sql - запрос к базе данных
cn - соединение с базой данных (ADODB.connection)
rcd - рекордсет (ADODB.Recordset)


sql = ""
sql = "SELECT * FROM dbTableName"
rcd.Open sql, cn, adOpenStatic

rcd.MoveFirst
While Not rcd.EOF
    MsgBox rcd("TableFieldValue")
    rcd.MoveNext
Wend



rcd - рекордсет (ADODB.Recordset)


If rcd.State = adStateOpen Then
    rcd.Close
End If



назад 1 2 3 4 5 далее