Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7037 usuários registrados
O último usuário registrado atende pelo nome de GETULIO

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

Limitar adicionar itens na listbox

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Limitar adicionar itens na listbox

Mensagem por Julio em 21/1/2011, 14:51

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

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Limitar adicionar itens na listbox

Mensagem por _batmanvfp_ em 21/1/2011, 15:18

use o commando FOR

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Limitar adicionar itens na listbox

Mensagem por alceu11 em 22/1/2011, 06:48

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....!!
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Aqui !!Nos matamos a cobra e mostramos O pau

Mensagem por alceu11 em 22/1/2011, 07:46

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....... Very Happy
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Limitar adicionar itens na listbox

Mensagem por Julio em 24/1/2011, 08:20

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

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Limitar adicionar itens na listbox

Mensagem por Julio em 24/1/2011, 15:37

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

Abs

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum