DBGrid

DBGrid er jo netop beregnet til at hente data fra et recordset, skal du slet ikke bruge en DB connection i dit projekt?

Grunden til at jeg gerne selv vil smid data fra database ind, er fordi jeg ikke kan få DBgrid til at ligge nogen tal sammen som kommer fra database og der efter lave en liste over det... Der ville jeg meget gerne selv kunne ligge data ind.

Men hvis der nogen andet der er ligesom DBGrid er kan gøre det.

Jeg vil nemlig meget gerne lave en kontoplan og der skal den ligge alt sammen på det der køre ind og ud og lave en saldo.

Databasen inde holder flere konti så jeg kan ikke rigtigt få DBGrid til at bare tag den konto man vil have fat i og derefter bereg saldo for være dato...

MS FlexGrid, ville jeg mene, men det er vist read only (altså brugeren kan ikke editere felter).

Brugen må ikke gå ind og editere så det gøre ikke noget...

Men jeg kan jo brug StringGrid har jeg lige fundt ud af

Hvor kommer den kontrol fra..?

Er det ikke noget Delphi?

>>jpk
Det er jo nok C++ Builder... Den har de samme komponenter som Delphi (faktisk kompileret fra Delphi-kode)...

>>videodyr
Prøv lige at forklare helt præcist hvad du ønsker... Kan du ikke bare køre et loop i gennem den kolonne du skal finde summen af, og så lægge resultatet over i en int?

Det jeg meget gerne ville have den skulle gøre er at lave en liste ud fra min database der så sådan ud

Dato        Tekst    Ind/Ud    Saldo
23/6-2002  Start                0,00
23/6-2002  Indb.      450,00  450,00
25/6-2002  Indb.      400,00  850,00
30/6-2002  Udb.      -25,00  825,00

NOOOOOOOOO!!!!!!!!!!!!!!!!
Nu har jeg lige siddet og brugt en masse tid på at skrive Delphi-kode... Nå, men det kan jo være det kan bruges... Hvis ikke så er det sgu bare ærgeligt...

========Startede med at skrive her========

procedure TForm1.Button1Click(Sender: TObject);
  function IsReal(S: String): Boolean;
  var
    R: Real;
    Code: Integer;
  begin
    Val(S, R, Code);
    Result := Code = 0;
  end;

var
  I: Integer;
  Saldo, Nu: Extended;
  S: String;
begin
  Saldo := 0;
  for I := 0 to StringGrid1.Cols[2].Count-1 do {er ikke 100% sikker da jeg ikke lige har Delphi kørende, men mener det skal se sådan ud.}
  begin
    S := StringGrid1.Cols[2].Strings[I];
    if IsReal(S) then
      Nu := StrToFloat(S)
    else if S = '' then
      Nu := 0
    else
    begin
      ShowMessage('KNOLD!!! Kan du nu ikke føre regnskab?!?');
      Break;
    end;
    Saldo := Saldo + Nu;
    StringGrid1.Cols[3].Strings[I] := Format('%n', [Saldo]);
  end;
end;

Ikke testet, og det kan være den melder fejl nogle steder, men hvis du er Delphi-haj, så burde det ikke være det store problem! ;)

========Stoppede med at skrive her========

Beklager at jeg ikke lige så kategorien, det er det med når man kun kigger på billederne, det hjælper sgu ikke så meget! ;)

Nå, men brug det eller lad være!