Clipper On Line • Ver Tópico - numerando linhas em um listbox

numerando linhas em um listbox

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

numerando linhas em um listbox

Mensagempor gilbrodrigues » 05 Abr 2011 15:34

Ola a todos, estou tendo um problema ao tentar numerar as linhas de um listbox. Nao posso utilizar a funcao RECNO() porque existe uma função que classifica este arquivo que esta sendo exibido, ao utilizar recno(), a primeira linha ORD. nao fica corretamente. A variavel nAt ao ser utilizada, é mostrado nesta coluna ORD. o numero 1 em todas as linhas. Meu problema é:

Como incrementar esta variável nAt no skip

REDEFINE LISTBOX oLbxFilt ;
                 FIELDS ALLTRIM (str(oLbxFilt:nAt)),;  // 01
                 TEMPFILTRO->IMPRIME,; // 02
                 TEMPFILTRO->CODLAUDO,; // 03
                 TEMPFILTRO->ENDERECO,; // 04
            TEMPFILTRO->PONTOREF,; // 05
                 ALLTRIM (STR(TEMPFILTRO->AREA) ),; // 06
                 TRANSFORM(TEMPFILTRO->VALOR, maskval ),; // 07
                 TRANSFORM(TEMPFILTRO->AREAM2, maskval ),; // 08
                 TRANSFORM(TEMPFILTRO->VALORM2, maskval ),; // 09
                 IIF(TEMPFILTRO->FOTOS, "Sim", "Não"),; // 10
                 TEMPFILTRO->VAZIOCUPA,; // 11
            TEMPFILTRO->CAPTADOR,; // 12
                 TEMPFILTRO->DATALAUDO; // 13
      ALIAS  "TEMPFILTRO";
      ID 4031 OF oResult;
      HEADERS "Quant","Impr", "Cod.Laudo","Endereço","PRef","Área", "Valor (R$)", "Valor/m2","Vlr+Enc/m2",;
               "Fotos", "Vaz_Ocup","Captador", "Dt Laudo";
      ON DBLCLICK MARCAPRN();
      FIELDSIZES 30,30,100,180,180,50,100,100,100,50,50,60,100 UPDATE

    oLbxFilt:nAt       = 01
Nota de Moderação:
Toledo: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
gilbrodrigues
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 10
Data de registro: 05 Jan 2011 09:44
Cidade/Estado: RIO DE JANEIRO / RJ
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: numerando linhas em um listbox

Mensagempor Toledo » 06 Abr 2011 07:41

Amigo, pelo que sei a variável nAt tem incrementação automática dentro do LISTBOX.

Será que o problema não está na última linha (oLbxFilt:nAt = 01) deste seu código? Você já tentou retirar esta linha e fazer um teste?

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Re: numerando linhas em um listbox

Mensagempor Euclides » 07 Abr 2011 09:49

Olá pessoal.
oLbx:nAt com tabelas DBF não retorna coisa que preste. Funciona bem com ARRAYS.
Existe o variável oLbx:nRowPos que retorna o número da linha (não o número de linhas) do WBrowse, mas só funciona em modo dinâmico (quando há um deslocamento do cursor de linhas).
Havendo índice no arquivo, poderia utilizar a função OrdKeyNo(), função do CDX, mas que funciona também com NTX na versão 5.3 (o problema seria com os registros deletados).
Qualquercoisa, avise.
T+
Euclides
Euclides
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 154
Data de registro: 12 Mai 2007 14:07
Cidade/Estado: São Paulo, Capital
Curtiu: 1 vez
Mens.Curtidas: 14 vezes

numerando linhas em um listbox

Mensagempor cjp » 20 Nov 2014 01:12

Estou tentando usar a orkeyno() com uma tabela no MySQL indexada, mas ele está retornando sempre 0. Alguém saberia me explicar porque? Ou como faço para fazer isso sem ela?

Estou fazendo assim:

DBUSEAREA( .T.,, "SELECT prioridade,nrtarefa,assunto,tarefa FROM tarefas WHERE usuario='"+usus+"' AND prioridade>0 AND soluc='N'  AND exibe='E' GROUP BY nrtarefa", "consusu")
INDEX ON descend(prioridade) TAG prioridade TO consedit
dbedit(1,1,maxrow()-5,maxcol(),v1,,,v3)
nrcusu=ordkeyno()
Inacio de Carvalho Neto
cjp
Usuário Nível 6

Usuário Nível 6
 
Mensagens: 1527
Data de registro: 19 Nov 2010 21:29
Cidade/Estado: paraná
Curtiu: 10 vezes
Mens.Curtidas: 20 vezes

numerando linhas em um listbox

Mensagempor Kapiaba » 24 Nov 2014 09:12

Veja se ajuda: Eu faria ssim usando ListBox, mas o ideal e que voce use o xBrowse()

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oLbx, cAlias

   USE CUSTOMER

   cAlias := ALIAS()
   GO TOP

   DEFINE DIALOG oDlg TITLE "Numeros sequenciais" ;
          FROM 5, 5 TO 20, 45

   @ 0.5, 0.5 LISTBOX oLbx VAR FIELDS  ;
              SEQUENCIAL( cAlias )   , ;
              ( cAlias )->FIRST      , ;
              ( cAlias )->LAST         ;
              HEADERS "Seq"          , ;
                      "Primeiro"     , ;
                      "Proximo "       ;
              FIELDSIZES 050, 050, 100 ;
              SIZE 100, 100 OF oDlg

   @ 0.5, 18 BUTTON "&Ok" ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil

//----------------------------------------------------------------------------//

FUNCTION SEQUENCIAL( cAlias )

   LOCAL nRecno

   nRecno := ( cAlias )->( RecNo() )

RETURN( STR( nRecNo ) )


Abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 17 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro