创建FormDocCreate事件,每次打开窗体,自动从打开的数据集中判断符合条件的值,并更改状态,代码如下:
var
i:integer;
begin
DataSetMain.DataSet.Open;
for i:=0 to DataSetMain.Dataset.Recordcount-1 do
begin
if DataSetMain.Dataset.FieldByName('HTJSRQ').AsString<>''then
begin
if DateUtils.DateOf(SysSrv.SysService.Time)>DataSetMain.Dataset.FieldByName('HTJSRQ').AsDateTime then
begin
DataSetMain.DataSet.Open;
DataSetMain.DataSet.Edit;
DataSetMain.Dataset.FieldByName('HTZT').Asstring:='待续签';
DataSetMain.DataSet.ApplyUpdates;
end;
end;
end;
end;
但每次只第一行变化(焦点所在行),怎么能自动循环?