Subject | TIBOTable Suggestion |
---|---|
Author | Hans |
Post date | 2004-10-16T02:06:06Z |
Hello Jason,
I like to suggest the following code change to TIBODataSet.pas
Around line 2915:
// (tmpField as TNumericField).DisplayFormat := tmpCol.DisplayFormat;
change to
if tmpCol.SQLscale >= 0 then
(tmpField as TNumericField).DisplayFormat := '#'
else
(tmpField as TNumericField).DisplayFormat := '#.'
+Copy('000000000000000000',1,-tmpCol.SQLscale);
This change displays Numeric(x,y) fields using a DisplayFormat of (#.y(0's))
on
non field populated TIBOTABLES OR TIBOQUERIES (dynamic built SQL)
Thank You
Hans
I like to suggest the following code change to TIBODataSet.pas
Around line 2915:
// (tmpField as TNumericField).DisplayFormat := tmpCol.DisplayFormat;
change to
if tmpCol.SQLscale >= 0 then
(tmpField as TNumericField).DisplayFormat := '#'
else
(tmpField as TNumericField).DisplayFormat := '#.'
+Copy('000000000000000000',1,-tmpCol.SQLscale);
This change displays Numeric(x,y) fields using a DisplayFormat of (#.y(0's))
on
non field populated TIBOTABLES OR TIBOQUERIES (dynamic built SQL)
Thank You
Hans