码迷,mamicode.com
首页 > 其他好文 > 详细

cxgrid更改单元格

时间:2014-12-28 02:00:39      阅读:178      评论:0      收藏:0      [点我收藏+]

标签: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;


本文出自 “一切有为法,如梦幻泡影” 博客,请务必保留此出处http://kaixinbuliao.blog.51cto.com/2567365/1596556

cxgrid更改单元格

标签:cxgrid

原文地址:http://kaixinbuliao.blog.51cto.com/2567365/1596556

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!