在cxgrid中如何实现 输入单价列和数量列数值，金额自动算出 并显示在金额列里

[hanzq]

如题，好久没发帖了

[广州佬]

//首先将cxGrid1DBTableView1Column1.Properties和cxGrid1DBTableView1Column2.Properties的属性设置为SpinEdit，然后，在他们的PropertiesChange事件调用下列过程：

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;
应为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;

[【天运子】]

[Quote=引用 2 楼 的回复:]
cxGrid1DBTableView1.Columns[1].EditValue+cxGrid1DBTableView1.Columns[2].EditValue;
应为cxGrid1DBTableView1.Columns[1].EditValue * cxGrid1DBTableView1.Columns[2].EditValue;
[/Quote]这里的Columns[1]Columns[2]可以换成cxGrid1DBTableView1.GetColumnByFieldName('列绑定的字段名').Index

[kaikai_kk]

EditValue相乘