严谨些就这样: procedure TForm1.Calculate; var x1,x2:Variant; begin x1:=cxGrid1DBTableView1.Columns[1].EditValue; x2:=cxGrid1DBTableView1.Columns[2].EditValue; if VarIsNull(x1) or VarIsNull(x2) then exit; cxGrid1DBTableView1.Columns[3].EditValue:=x1 * x2; end;
procedure TForm1.Calculate;
begin
cxGrid1DBTableView1.Columns[3].EditValue:=
cxGrid1DBTableView1.Columns[1].EditValue+cxGrid1DBTableView1.Columns[2].EditValue;
end;procedure TForm1.cxGrid1DBTableView1Column1PropertiesChange(
Sender: TObject);
begin
Calculate;
end;procedure TForm1.cxGrid1DBTableView1Column2PropertiesChange(
Sender: TObject);
begin
Calculate;
end;
应为cxGrid1DBTableView1.Columns[1].EditValue * cxGrid1DBTableView1.Columns[2].EditValue;
procedure TForm1.Calculate;
var x1,x2:Variant;
begin
x1:=cxGrid1DBTableView1.Columns[1].EditValue;
x2:=cxGrid1DBTableView1.Columns[2].EditValue;
if VarIsNull(x1) or VarIsNull(x2) then exit;
cxGrid1DBTableView1.Columns[3].EditValue:=x1 * x2;
end;