Limitar adicionar itens na listbox

[Julio]

Boa Tarde Pessoal!

Estou utilizando para adicionar itens em uma listbox o seguinte:

Código:


SELECT DADOS
GO TOP
SCAN
  popular = tudo
  Thisform.List1.AddItem(popular)
ENDSCAN

A tabela dados tem 40 registros, e so quero que a listbox seja alimentada com 11 registros, caso ultrapasse alimento outra listbox.

Obrigado


julio

[_batmanvfp_]

use o commando FOR

[alceu11]

So uma pergunta dados e tabela temporaria.?
se for vc tera ke delantando os registro,
para caso tenha mais de 15, vc comece de na proxima no registro 16

ou
coloque uma campo em dados PASSOU C(1) E REPLACE UM "S"

Código:

 SELECT DADOS
GO TOP
Wconta=1
if not eof()
  Do while !eof() or wconta<=40
  if wconta<=15
    popular = tudo
    Thisform.List1.AddItem(popular)
  endif

*******PODE SER KE DE PARA FAZER O SEGUNDO AQUI SO TESTANDO
  if wconta >=16 and wconta <32
    popular = tudo
  **O OUTRO LIST -->>  Thisform.List1.AddItem(popular)
  endif 
*****************

select dados
replace passou with "S"
Skip
wconta=wconta+1
  if wconta=15
    exit
  endif

enddo
else
  wait window 'nao encontrei registros'
endif
**** se tiver mais que 15  verique com o reccount()  para fazer o proximo
if reccount() >15  ,,,se for cursor _tally >15
e continue o processo ,,,,,verificando se passou esta vazio


********

O Batman nao e mais batman agora virou deputado "EMael"

Incrivel o cara falar use For,,,,,,,mais nao posta, um exemplo,,,!!!
É muito pra minha cabeca!!!

O FOR NEXT vou deixar para o Emael fazer....!!

[alceu11]

Para o Batman, nao dizer,,!! e porque , nao colocou um codigo com for next

Código:


SELECT DADOS
CONTA=RECCOUNT()
if not eof()
GO TOP
N=1

FOR I =1 TO 15
    SELECT DADOS
    IF N<=15
    popular = tudo
    Thisform.List1.AddItem(popular)
    ENDIF
  SELECT DADOS
    SKIP
N=N+1

NEXT
WAIT WINDOW 'TERMINEI de incluir AS 15 VARIAVEIS ' TIMEOUT 1

*************
Select dados
if reccount()>15
go 16
FOR I =16 TO 30
    SELECT DADOS
    IF N>16 AND N<=30
    popular = tudo
    Thisform.List1.AddItem(popular)
  WAIT WINDOW 'teste '+STR(n) TIMEOUT 0.1
    ENDIF
  SELECT DADOS
    SKIP
N=N+1

NEXT

 
endif
WAIT WINDOW 'TERMINEI de incluir mais 15 VARIAVEIS ' TIMEOUT 1

*************
***Agora
** faca o for next do 16 ao registro 30
*********************************


if reccont() >30
go 31
***faca o for next do 31 ao 45
endif
Endif


Como eu sou do Interior,,,,aqui na minha cidade...
Vamos matar a cobra e mostrar o Pau.......

[Julio]

A tabela pertence a um banco de dados.
Vou testar depois retorno.

[Julio]

Obrigado Marcelo e Alceu , deu certo com o codigo do Alceu.

Abs

julio