Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
20 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

ronaldo_jf@hotmail.com

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

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

Os nossos membros postaram um total de 49 mensagens em 26 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