Nome de campo

[clebervn]

Alguém me refresque a memória por favor.

Estou num browse, teclo enter numa determinada coluna, tenho como saber qual o nome da coluna (campo) q cliquei

COMO

abc

[sygecom]

De uma olhada no NG por: FieldName() , acredito que resolve ou lhe de uma luz.

[alxsts]

Saudações a todos!

Não sei se é isso que voce precisa. Se quiser saber a qual campo do .DBF (nome do campo) se refere a coluna do browser, fica difícil. Para saber o nome da coluna onde o browser está posicionado, use o seguinte código:

Código: Selecionar todos

               oCol := oTb:getColumn(oTb:colPos)
               cColName := oCol:heading

Sabendo o nome da coluna voce pode fazer o tratamento desejado:

Código: Selecionar todos

               DO CASE
                  CASE cColName == "Coluna 1"
                     Rotina1()
                  CASE cColName == "Coluna 2"
                     Rotina2()
                  // etc...
               END CASE   

Para recuperar os dados da coluna use:

Código: Selecionar todos

               oCol := oTb:getColumn(oTb:colPos)
               xVal := Eval( oCol:block )

[sygecom]

Olá alxsts,
Olha até pensei em perguntar será BROWSE ou TBROWSE, no seu exemplo só vai funcionar se ele tiver usando TBROWSE.

[alxsts]

Olá Sygecom!

Voce tem razão. O código que postei só funcionará em um TBrowse. É que assumi que o CleberVN esteja usando um TBrowse mesmo. Como voce sabe, a função Browse(), que voce citou, não permite que controlemos as teclas. Ela só reconhece Enter (entra em modo de edição da célula corrente do Browse), Seta Abaixo quando posicionado na última linha (entra no modo append) ou Esc para abandonar a função. Assim, não seria possível construir algum código para tratar esse evento de teclado (a tecla Enter) e recuperar o nome da coluna atual. Nos fontes de exemplo do Clipper 5.xx, vem o fonte dessa função Browse(), com o nome de TBDemo.Prg. Numa instalação padrão do Clipper 5.xx, pode ser encontrado em C:\Clipper5\Source\Sample.

Bom chimarrão!