// допустим колонка LMETKA  
 bBlock := oBrw:GetColumn("LMETKA"):bData 
 nCol := oBrw:nColumn("LMETKA")  
  
  nRec := oBrw:nAt                // номер текущей строки 
  
  FOR nI := 1 TO oBrw:nLen   
       ????? // позиционирование по строке таблицы - подойдёт ли oBrw:GoPos(nI,nCol) 
       lMark  := Eval(bBlock)        
        IF (cAlias)->(RLock()) 
          Eval(bBlock, !lMark)       
          (cAlias)->( DbUnlock() ) 
       ELSE 
          MsgStop("Line " +HB_NtoS(nI)+ " in the table is blocked!") 
       ENDIF 
  NEXT  
  oBrw:GoPos(nRec,nCol)          // передвинуть на номер где первоначально стоял МАРКЕР 

  
 n := 1 
 oBrw:GoTop() 
 nRec := (oBrw:cAlias)->(Recno())  
 While n <= oBrw:nLen 
         IF (oBrw:cAlias)->(Rlock())  
              Eval( nBlock, ! Eval(bBlock))  
              (oBrw:cAlias)->(dbUnlock())  
         End 
         oBrw:Down()  
         n++ 
 end 
 oBrw:GotoRec(nRec) 
 

oBrw:GoTop()            // передвинуть на первую запись базы 
 oBrw:GoBottom()         // передвинуть на последнюю запись базы 
 oBrw:GoDown()           // передвинуть на одну запись базы вниз 
 oBrw:GoUp()             // передвинуть на  
 oBrw:GotoRec( nRecNo )  // передвинуть на номер записи базы - или так: 
                         // меняет указатель записи с помощью GoTo() на нужную запись  
  
 oBrw:GoPos(nI,nCol)     // передвинуть МАРКЕР на nI-строку, nCol-колонку 
   // Или можно так - меняет указатель записи с помощью ::Skip() ПЕРЕБОРОМ в цикле. Правда перебор оптимизирован по разнице 
  
    nRec := oBrw:nAt                // номер текущей строки в таблице 
   nCell := oBrw:nCell              // номер текущего столбца в таблице 
   nRPos := oBrw:nRowPos            // номер текущей строки в таблице - не меняет указатель записи 
 nRecAll := oBrw:nLen               // общее кол-во записей в таблице 
 nRecAll := oBrw:nRowCount          // общее кол-во записей в таблице 
  
    nCol := oBrw:nColumn("LMETKA")  // номер колонки LMETKA 
    oCol := oBrw:GetColumn(nCol) 
    bBlock := oCol:bData 
    Eval(bBlock, .F./.T.)              // запись значения в колонку LMETKA 
    oCol:cFooting := 'Foot'         // запись в подвал колонки 
 или 
    Eval( {|| oBrw:nColumn("LMETKA"):bData }, .F./.T.  )  // запись значения в колонку LMETKA 
    oBrw:nColumn("LMETKA"):cFooting := 'Foot'               // запись в подвал колонки 
  
 oBrw:DrawLine()      // перерисовать текущую строку таблицы 
 oBrw:DrawSelect()    // перерисовать текущую текущую стоку выделенными цветами ( цветом курсора) 

cAls := oBrw:cAlias 
 nRec := (cAls)->( RecNo() ) 
 (cAls)->( dbGotop() ) 
 DO WHILE ! (cAls)->( EOF() ) 
    IF (cAls)->(RLock()) 
       // записать в базу 
       .................. 
       (cAls)->( DbUnlock() ) 
    ELSE 
      MsgStop("Recording in the database is blocked!") 
    ENDIF 
    oBrw:Skip(1) 
 ENDDO 
 (cAls)->( dbGoto( nRec ) ) 
 (cAls)->( DBCOMMIT() ) 
 oBrw:Refresh() // или oBrw:Refresh(.T.)  
 oBrw:SetFocus() 

bBlock := oBrw:GetColumn("LMARK"):bData 
 nRec := Eval( ::bRecNo )  
 oBrw:GoTop() 
 While !oBrw:Eof() 
   if Eval(oBrw:bRecLock()) 
      Eval(bBlock, !Eval(bBlock)) 
   end 
   oBrw:GoDown() // вызовет смещение текущей строки в бровсе и указателя записи в базе 
                 // Можно использовать oBrw:Skip(1) НЕ вызовет смещение текущей строки в  
                 // бровсе, но сместит указатель записи в базе (бровс рассинхронизируется) 
 End           
 oBrw:GotoRec(nRec) // синхронизация  бровса

////////////////////////////////////////////// 
 FUNCTION Metka_Test3(cFltr)  
     LOCAL nI 
     LOCAL nO := select()  
     LOCAL oB := oStaticBrw  
     LOCAL cA := oB:cAlias  
     LOCAL cF := 'DIR'+SUBSTR(cA,5)  
     LOCAL bF := oB:GetColumn(cF):bData  
     LOCAL nR := (cA)->( RecNo() )   
     LOCAL aR := {}, aE := {}  
    
     dbSelectArea(cA)  
     If ! empty(cFltr)  
        SET FILTER TO &cFltr  
     EndIf  
     dbGotop()  
     DO WHILE ! EOF()  
        If RLock()   
           EVal(bF, ! EVal(bF))  
           dbUnLock()  
        Else  
           AAdd(aR, RecNo())  
        EndIf  
        DO EVENTS  
        SKIP  
     ENDDO  
    
     If ! empty(cFltr)  
        SET FILTER TO   
     EndIf  
    
     If Len(aR) > 0  
        FOR nI := 1 TO Len(aR)  
            dbGoto(aR[ nI ])  
            If RLock()   
               EVal(bF, ! EVal(bF))  
               dbUnLock()  
               aR[ nI ] := 0  
            Else  
               AAdd(aE, aR[ nI ])  
            EndIf  
        NEXT  
     EndIf  
    
     nI := 0; AEval(aE, {|nv,nn| nI += iif( nv > 0, 1, 0 ) } )  
    
     If nI > 0  
        MsgStop("Строки " +HB_ValToExp(aE)+ " не доступны !")  
     EndIf  
    
     dbGoto(nR)  
     dbSelectArea(nO)  
     oB:Refresh()  
     oB:SetFocus()  
   
     RETURN NIL

 
 FUNCTION Metka_Test2( cFltr )   
      LOCAL nI, cFltr   
 ... 
      LOCAL nR := (cA)->( RecNo() )  
 ... 
     dbSelectArea(cA)   
      cFltr : = DBSETFILTER()  
 ...   
      If ! empty(cFltr)    
          SET FILTER TO &cFltr  // восстановить фильтр, если был  
      EndIf    
    
      dbGoto(nR) 

  ? cTbrName, cForm, aArray, aFontHF, aHead, aFSize, aFoot, aPict, aAlign, aName 
 возвращает: 
 oBrwTxt	Form_Txt	ARRAY[1]	NIL	ARRAY[16]	ARRAY[16]	ARRAY[16]	ARRAY[16]	ARRAY[16]	ARRAY[16]	 
  
    oBrw1 := SetArrayTo( cTbrName, cForm, aArray, aFontHF, aHead, aFSize, aFoot, aPict, aAlign, aName )

 
 Function SetArrayTo( ControlName, ParentForm, Arr, uFontHF, aHead, aSizes, uFooter, aPicture, aAlign, aName ) 
 *-----------------------------------------------------------------------------* 
     Local ix, oBrw 
  
     ix := GetControlIndex (ControlName, ParentForm) 
     oBrw := _HMG_aControlIds [ix]  // 410  
     oBrw:SetArrayTo(Arr, uFontHF, aHead, aSizes, uFooter, aPicture, aAlign, aName) 
  
 Return oBrw 
 

   cTbrName      := "oBrwTxt"    
    DEFINE TBROWSE oBrw1  ;   // нужно вместо oBrw1 писать &cTbrName 
         ...... 
    END TBROWSE   
  
    ? cTbrName, cForm, aArray, aFontHF, aHead, aFSize, aFoot, aPict, aAlign, aName 
    oBrw1 := SetArrayTo( cTbrName, cForm, aArray, aFontHF, aHead, aFSize, aFoot, aPict, aAlign, aName )

   nColMax := LEN(aDim[1]) 
    nColMaxOld := oBrw1:nColCount() 
    For nI := nColMax + 1 To nColMaxOld 
        oBrw1:DelColumn( nI )           
    Next 
    ? nColMax, oBrw1:nColCount()

8	26	 
 8	==	8	

   oBrw1:DeleteRow( .T. )       // Delete All 
  
    aArray := aDim  // переопределяем на новый входящий массив 
    For nI := 1 TO Len(aArray) 
        ? nI, HB_VALTOEXP(aArray[nI]) 
        if ! empty(aArray[ nI ]) 
           ADD ITEM aArray[ nI ]  TO &cBrw  OF &cForm  // строка 384 
        EndIf 
    Next

   For nI := nColMax + 1 To nCol 
        oBrw1:DelColumn( nI )           
    Next

   For nI := 1 To nColumns 
       ? nI, "/", nColumns 
       ? ::aArray[ 1, nI ] 
       cType := ValType( ::aArray[ 1, nI ] )