In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

new DataSet prblem with TBrwColumn:OnDrawCell

Xailer professional forum in English
Responder
Ingo
Mensajes: 330
Registrado: Mié Jul 05, 2006 3:58 pm

new DataSet prblem with TBrwColumn:OnDrawCell

Mensaje por Ingo »

Ignacio,
in many TDBBrowses I'm using TBrwColumn:OnDrawCell to modify the text of a
column like this:
METHOD BrwColumn1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite,
hDC, aRect ) CLASS TForm1
cText += " " + ::oDataSet:LAST
RETURN Nil
But when I call AddNew() ::oDataSet:LAST returns NIL because each element of
oDataSet:aFldEdit in FieldGet() contains NIL.
A modified sample (DataControlsDbfData2) is attached.
Regards
Ingo

--

Attached files DbfTest.zip (7 KB)Â
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9469
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

new DataSet prblem with TBrwColumn:OnDrawCell

Mensaje por ignacio »

Ingo,
Try with:
cText += " " + ::oDataSet:LAST( dsFIELD )
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
http:/xailer.info
"Ingo" <info@mandantwin.com> escribió en el mensaje de
noticias:4a7fc9c4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio,
>
> in many TDBBrowses I'm using TBrwColumn:OnDrawCell to modify the text of a
> column like this:
>
> METHOD BrwColumn1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite,
> hDC, aRect ) CLASS TForm1
> cText += " " + ::oDataSet:LAST
> RETURN Nil
>
> But when I call AddNew() ::oDataSet:LAST returns NIL because each element
> of
> oDataSet:aFldEdit in FieldGet() contains NIL.
>
> A modified sample (DataControlsDbfData2) is attached.
>
> Regards
>
> Ingo
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9469
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

new DataSet prblem with TBrwColumn:OnDrawCell

Mensaje por ignacio »

Ingo,
Try with:
cText += " " + ::oDataSet:LAST( dsFIELD )
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
http:/xailer.info
"Ingo" <info@mandantwin.com> escribió en el mensaje de
noticias:4a7fc9c4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio,
>
> in many TDBBrowses I'm using TBrwColumn:OnDrawCell to modify the text of a
> column like this:
>
> METHOD BrwColumn1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite,
> hDC, aRect ) CLASS TForm1
> cText += " " + ::oDataSet:LAST
> RETURN Nil
>
> But when I call AddNew() ::oDataSet:LAST returns NIL because each element
> of
> oDataSet:aFldEdit in FieldGet() contains NIL.
>
> A modified sample (DataControlsDbfData2) is attached.
>
> Regards
>
> Ingo
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

new DataSet prblem with TBrwColumn:OnDrawCell

Mensaje por Ingo JH »

Ignacio,
that's it.
Thank you
Ingo
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> schrieb im
Newsbeitrag news:4a803c96$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ingo,
>
> Try with:
>
> cText += " " + ::oDataSet:LAST( dsFIELD )
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> http:/xailer.info
>
> "Ingo" <info@mandantwin.com> escribió en el mensaje de
> noticias:4a7fc9c4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Ignacio,
>>
>> in many TDBBrowses I'm using TBrwColumn:OnDrawCell to modify the text of
>> a
>> column like this:
>>
>> METHOD BrwColumn1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite,
>> hDC, aRect ) CLASS TForm1
>> cText += " " + ::oDataSet:LAST
>> RETURN Nil
>>
>> But when I call AddNew() ::oDataSet:LAST returns NIL because each element
>> of
>> oDataSet:aFldEdit in FieldGet() contains NIL.
>>
>> A modified sample (DataControlsDbfData2) is attached.
>>
>> Regards
>>
>> Ingo
>>
>>
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

new DataSet prblem with TBrwColumn:OnDrawCell

Mensaje por Ingo JH »

Ignacio,
that's it.
Thank you
Ingo
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> schrieb im
Newsbeitrag news:4a803c96$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ingo,
>
> Try with:
>
> cText += " " + ::oDataSet:LAST( dsFIELD )
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> http:/xailer.info
>
> "Ingo" <info@mandantwin.com> escribió en el mensaje de
> noticias:4a7fc9c4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Ignacio,
>>
>> in many TDBBrowses I'm using TBrwColumn:OnDrawCell to modify the text of
>> a
>> column like this:
>>
>> METHOD BrwColumn1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite,
>> hDC, aRect ) CLASS TForm1
>> cText += " " + ::oDataSet:LAST
>> RETURN Nil
>>
>> But when I call AddNew() ::oDataSet:LAST returns NIL because each element
>> of
>> oDataSet:aFldEdit in FieldGet() contains NIL.
>>
>> A modified sample (DataControlsDbfData2) is attached.
>>
>> Regards
>>
>> Ingo
>>
>>
Responder