2,497
社区成员
发帖
与我相关
我的任务
分享
with DataM.ADOCatalogTBQry do //DBGrid1.DataSource.DataSet do
begin
Edit;
FieldByName('ArchNo').Value := tmpArchNo;
FieldByName('SectNo').Value := tmpSectNo;
FieldByName('CatalogNo').Value := tmpCatalogNo;
FieldByName('RollNo').Value := tmpRollNo;
FieldByName('FileNo').Value := tmpFileNo;
FieldByName('tm').Value := tmptm;
FieldByName('wjbh').Value := tmpwjbh;
FieldByName('bgqx').Value := tmpbgqx;
FieldByName('zrz').Value := tmpzrz;
FieldByName('ztc').Value := tmpztc;
FieldByName('sj').Value := tmpsj;
FieldByName('ys').Value := tmpys;
FieldByName('yh').Value := tmpyh;
FieldByName('remark').Value := tmpremark;
Post;
if Eof then
begin
Edit_yh.Tag := 0;
ShowErrorInfo('已到达最后一条');
end
else
begin
if tryStrToInt(tmpYh,i) then
Edit_yh.Tag := StrToInt(tmpYh) + ImageEnMView1.ImageCount
else
Edit_yh.Tag := 0;
Next;
end;
end;