cxgrid更改单元格

procedure  TRES_CQ_JB_F . N1Click(Sender: TObject);

var

   iLoop: Integer ;

begin

   inherited ;

   if  _JuMaPao= 3  then

   begin

     if  IsZCJB= 2  then

     begin

       CQ_JB_P_F:=TCQ_JB_P_F . Create(Self);

       if  CQ_JB_P_F . ShowModal=mrok  then

       begin

         cxGrid2 . BeginUpdate;

         cxGrid2DBTableView1 . BeginUpdate;

         for  iLoop:= 0  to  cxGrid2DBTableView1 . DataController . GetSelectedCount - 1  do

         begin

           cxGrid2DBTableView1 . Controller . FocusedRow:=cxGrid2DBTableView1 . Controller . SelectedRows[iLoop];

           adoq_JB . Edit;

           adoq_JB . FieldByName( 'JBRQ' ).AsString:=FormatDateTime( 'yyyy/mm/dd' ,DT);

           adoq_JB . FieldByName( 'SJKSSJ' ).AsString:=FormatDateTime( 'hh:mm:ss' ,DtKSSJ);

           adoq_JB . FieldByName( 'SJJSSJ' ).AsString:=FormatDateTime( 'hh:mm:ss' ,DtJSSJ);

           adoq_JB . FieldByName( 'SJJBSS' ).AsString:=FormatDateTime( 'hh:mm:ss' ,FlGZSS);

           adoq_JB . FieldByName( 'JBYY' ).AsString:=StrJBYY;

           adoq_JB . FieldByName( 'JBDD' ).AsString:=StrID;

           adoq_JB . FieldByName( 'STATUS' ).AsString:=StrJBLX;

           adoq_JB . Post;

         end ;

         cxGrid2DBTableView1 . EndUpdate;

         cxGrid2 . EndUpdate;

       end ;

     end ;

   end ;

本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/1596556 ，如需转载请自行联系原作者