两个form
一个form1，一个form2
从第一个form1.dbgrideh从数据库查询出结果，赋值给 form2 里的dbgrideh。
总是会弹出一个框 点确认就赋值成功，点ok 赋值成功 点cancel 就赋值失败。
能不能不显示这个窗口。

代码如下
procedure TForm1.DBGridEh1EditButtonClick(Sender: TObject);
begin
    with Form2.sp1 do  
    begin
      // Close;
       ProcedureName := 'a2';  
       Parameters.Refresh;
       Parameters.ParamByName('@bm').Value := trim(DBGrideh1.Columns.Grid.fields[0].Value);
       ExecProc;
       Open;
      // Form2.Show;
end;

end;
更多 0