Los campos que se muestra en blanco en TDBBrowse
Publicado: Vie Jul 18, 2014 8:27 pm
Señores, en Harbour Console me enviaron a campos de funciones TBrowseDB() y
TBColumnNew() para las columnas como esta:
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
oBrw := TBrowseDB(nLin, nCol, nLinFim, nColFim)
For i:= 1 To Len(aCampos)
If ! ISNIL( aMascara )
bDataField := " { || TRANSFORM( " + aCampos + ", ' " +
aMascara + " ' ) }"
Else
bDataField := "{|| " + aCampos + " }"
EndIf
oColBrw := TbColumnNew( aHeads, &bDataField)
oBrw:AddColumn(oColBrw)
Next
En Xailer he creado un formulario con un TDBBrowse de la siguiente manera,
pero el campo que tiene la función, se muestra en blanco en el siguiente
ejemplo la única columna que aparece los datos es la columna del campo
Dirección.
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
cTitle := 'Pesquisa de Clientes'
cText := 'Clientes'
WITH OBJECT frmProcura()
:cTabela := 'Clientes'
:New() //--> Initialize
:cText := cTitle
:nWidth := 612
:nHeight := 446
:nBorderStyle := bsDIALOG
:oTexto:cText := cText
*-- Define Dataset do TDBrowse
:oBrwProcura:oDataSet := :oDBF
:oBrwProcura:Reset()
*-- Carrega colunas no TDBrowse
FOR i:=1 to Len(aCampos)
WITH OBJECT TDBBrwColumn():New( :oBrwProcura )
:cHeader := aHeads
:oDataField := aCampos //-->> aqui mando o campo, mas alguns
saem em branco.
:cPicture := aMascara
:Create()
END
NEXT
:ShowModal() == mrOK
END
¿Qué me estoy perdiendo?
---
Este email está limpo de vírus e malwares porque a proteção do avast! Antivírus está ativa.
http://www.avast.com
TBColumnNew() para las columnas como esta:
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
oBrw := TBrowseDB(nLin, nCol, nLinFim, nColFim)
For i:= 1 To Len(aCampos)
If ! ISNIL( aMascara )
bDataField := " { || TRANSFORM( " + aCampos + ", ' " +
aMascara + " ' ) }"
Else
bDataField := "{|| " + aCampos + " }"
EndIf
oColBrw := TbColumnNew( aHeads, &bDataField)
oBrw:AddColumn(oColBrw)
Next
En Xailer he creado un formulario con un TDBBrowse de la siguiente manera,
pero el campo que tiene la función, se muestra en blanco en el siguiente
ejemplo la única columna que aparece los datos es la columna del campo
Dirección.
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
cTitle := 'Pesquisa de Clientes'
cText := 'Clientes'
WITH OBJECT frmProcura()
:cTabela := 'Clientes'
:New() //--> Initialize
:cText := cTitle
:nWidth := 612
:nHeight := 446
:nBorderStyle := bsDIALOG
:oTexto:cText := cText
*-- Define Dataset do TDBrowse
:oBrwProcura:oDataSet := :oDBF
:oBrwProcura:Reset()
*-- Carrega colunas no TDBrowse
FOR i:=1 to Len(aCampos)
WITH OBJECT TDBBrwColumn():New( :oBrwProcura )
:cHeader := aHeads
:oDataField := aCampos //-->> aqui mando o campo, mas alguns
saem em branco.
:cPicture := aMascara
:Create()
END
NEXT
:ShowModal() == mrOK
END
¿Qué me estoy perdiendo?
---
Este email está limpo de vírus e malwares porque a proteção do avast! Antivírus está ativa.
http://www.avast.com