首页 > 代码库 > cxgrid更改单元格
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更改单元格
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。