如何给DBGrid的某一条记录的字段赋值?

Question

谢谢！

Answer 1

Locate到指定记录;
Edit;
Field[i].assting:='abc';
Post;

Answer 2

procedure TConsumeEdit.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
//var i : Integer;
begin   if Button =  nbPost then
   begin       QC.ConsumeCountNO := trim(DBGrid1.SelectedField.DataSet.Fields.Fields[4].AsString);
       Qc.ConsumeStation := trim(DBGrid1.SelectedField.DataSet.Fields.Fields[5].AsString);
       QC.ConsumeId := trim(DBGrid1.SelectedField.DataSet.Fields.Fields[1].AsString);
      dm.SendCardSocket.Connected := false;
      dm.SendCardSocket.Connected  := true;
      dm.SendCardSocket.AppServer.UpdaeConsume(QC.ConsumeCountNO,Qc.ConsumeStation,QC.ConsumeId);
      dm.SendCardSocket.Connected := false;   //  for i := 0 to  DBGrid1.SelectedField.DataSet.RecordCount-1 do
   //  begin
        //dm.SendCardCltDst.Close;
        //QC.ConsumeId := DBGrid1.SelectedField.DataSet.Fields.Fields[1].AsString;
        //QC.ConsumeCountNO := DBGrid1.SelectedField.DataSet.Fields.Fields[4].AsString;
      //  Qc.ConsumeStation := DBGrid1.SelectedField.DataSet.Fields.Fields[5].AsString;
       // dm.SaleCardCltDst.CommandText :=  'UPDATE [cardmanager].[dbo].[unitinfo] SET [uni_idnumber]='+''''+DBGrid1.SelectedField.DataSet.Fields.Fields[4].AsString+''',[uni_station]='''+DBGrid1.SelectedField.DataSet.Fields.Fields[5].AsString+'''WHERE( [uni_code]= '''+DBGrid1.SelectedField.DataSet.Fields.Fields[1].AsString+''' )';
       // dm.SaleCardCltDst.Execute;
       // DBGrid1.SelectedField.DataSet.Next;
       //  end;
       dm.SendCardSocket.Connected := false;
      // dm.SaleCardCltDst.Close;   end;
end;