Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
var fStartAmount: Double; begin fStartAmount := 1000; // //auto calc field Balance ADODataSet1.Close; ADODataSet1.CommandText := 'select Id, "Date", Title, Comment,Account,amount, :pStartBalance + '+ '(select sum(tbl2.amount) from Tabel1 as tbl2 where tbl2."Date"<=Tabel1."Date" '+ 'and tbl2.Id<=Tabel1.Id) as Balance '+ 'from Tabel1 order by "Date", Id'; ADODataSet1.ParamCheck := True; ADODataSet1.Parameters.ParamByName('pStartBalance').Value := fStartAmount; ADODataSet1.Open;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.