Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » Elevate Web Builder Technical Support » Incident Reports » Incident Reports Reported for Version 2.05 » View Incident Report |
Serious |
Reported By: Kentersoft Reported On: 11/30/2016 For: Version 2.05 Build 4 |
procedure TForm1.Form1Create(Sender: TObject); begin Database.AutoTransactions := False; DataSet1.Open; end; procedure TForm1.DataSet1RowChanged(Sender: TObject; Column: TDataColumn); var TempStr: String; Price: Double; Num: Integer; Ds: TDataSet; begin LogOutput('OnRowChanged'); if not Assigned(Column) then Exit; TempStr := Column.Name; Ds := TDataSet(Sender); if SameText(TempStr, 'price')or (SameText(TempStr, 'num')) then begin Price := Ds.Columns['price'].AsFloat; Num := Ds.Columns['num'].AsInteger; Ds.Columns['amount'].AsFloat := Price*Num; end; end;
This web page was last updated on Wednesday, October 30, 2024 at 11:41 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |