Desloca para outro registro na tabela corrente.
DBSkip( [ nReg ] )
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nReg | numérico | Indica o número de registros que serão deslocados a partir do corrente. |
|
|
Nome | Tipo | Descrição |
---|---|---|
uRet | nil | Sempre retorna nulo. |
static function CreateTable() TCDelFile('T1') DBCreate('T1', {{"FIELD_NAME", "C", 10, 0}, ; {"FIELD_TYPE", "C", 10, 0}}, 'TOPCONN') return user function test() Local cT1 := "T1" TCLink() CreateTable() DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.) for nI := 1 to 20 (cT1)->( DBAppend( .F. ) ) (cT1)->FIELD_NAME := "name" + cValtoChar(nI) (cT1)->FIELD_TYPE := "string" (cT1)->( DBCommit() ) next DBGoTop() DBSkip(-1) //esta execução, após o DBGoTop, posiciona no início (BOF) da tabela msgInfo("Current Record: " + cValtoChar( recno() )) DBSkip(10) //desloca 10 registros "para frente" msgInfo("Current Record: " + cValtoChar( recno() )) DBSkip(-5) //desloca 5 registros "para trás" msgInfo("Current Record: " + cValtoChar( recno() )) DBSkip() //desloca 1 registro "para frente", respeitando seu valor default (1) msgInfo("Current Record: " + cValtoChar( recno() )) DBSkip(100)//desloca 100 registros "para frente", mas como só há 20 registros na tabela, posiciona no fim da tabela (EOF) msgInfo("Current Record: " + cValtoChar( recno() )) DBCloseArea() TCUnlink() return