窗体上,加一个按钮,或加一个右键快捷菜单。
procedure TForm1.Button1Click(Sender: TObject);
var N:Double;
begin
  with DBGridEh1.DataSource.DataSet do
  begin
    First;
    While Not Eof do
    begin
      Edit;
      N:=FieldByName('应变值').asFloat+StrToFloat(Combobox1.Text);
      FieldByName('应变变化值').asString:=FloatToStr;
      Post;
      Next;
    end;
  end;
end;再保存即可。

解决方案 »


  1. 非常感谢 ;已经用sql语句解决了问题。
      

类似问题 »