Delphi7中关于获取DBgrid每列中指定的一个值

2025-01-08 09:57:39

推荐回答（1个）

回答1：

DBGrid 的 onCellClick 事件增加如下代码..
Edit1.Text := ADOQuery1.FieldByName('生产部门').AsString;
Edit2.Text := ADOQuery1.FieldByName('数量').AsString;

修改 button 的onClick事件增加如下代码..
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('update 表 set MP数量 = :newcnt ');
SQL.Add(' where 生产订单号 = '''+生产订单号Edit.Text+''' ');
SQL.Add(' and 生产部门 = '''+部门Edit.Text+''' ');
//如果有其他条件, 则加之..
Parameters.ParamByName('newcnt').Value := 更改后数量Edit.Text;
//按数据类型, 修改参数的类型..
ExecSQL;
end;