Kan et felt i database vises som 2 kolonner i DBGrid

du kan lave 2 calulatedfield i cds det er vist ikke være så svært og så klare det med dem.

Jep. Var også mit forsøg.

Jeg famler dog i blinde, måske ligger det lige for næsen af mig, og jeg stirrer bare for langt?

Jeg skal sætte en expression op eller sådan noget?

Den har vist nok en oncalcfield event, ellers så prøv at kigge i demos, mon ikke der er en demo der bruger calculatedfields

Jeg dropper det og laver i stedet 2 felter i databasen. En for negative og en for positive tal.

Det er spild af plads at lave et felt for hhv. positive og negative tal. Du kan bruge OnCalcField til at styre det med.

Sæt gridden DefaultDrawing til false. Dobbeltklik dernæst på den og tilføj tal-feltet to gange - i hver sin kolonne. Indsæt dernæst følgende kode i griddens OnDrawColumnCell-event. Derefter skulle det virke:

procedure TfrmMain.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Vaerdi: integer;
begin
  with Sender as TDBGrid do
  begin
    if DataCol in [1,2] then
    begin
      Vaerdi := DataSource.DataSet.FieldByName('tal').Value;
      case DataCol of
        1: if Vaerdi >= 0 then
            DefaultDrawColumnCell(Rect,DataCol,Column,State);
        2: if Vaerdi < 0 then
            DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end;
    end
    else
      DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;

Nåe ja. Du behøver ikke bruge OnCalcField. Glemte at fjerne det.

Der er et link til about.com her: http://delphi.about.com/od/usedbvcl/l/aa031699.htm.

Har ikke tjekket hvad der sker med de felter der ikke tegnes op - hvis der står noget i feltet kan det være det bliver stående. Så må man blanke feltet, evt bare sætte farven på tegnene til den samme som baggrunden

Hej hrc.

Endnu engang har du svarene.

Point til dig her:
http://www.eksperten.dk/spm/808902