Ehlib Tmemtablerecordeh cachedupdate
procedure TForm1.Button3Click(Sender: TObject);
var
memRec : TMemoryRecordEh;
i: Integer;
begin
for i := 0 to DBGridEh1.SelectedRows.Count-1 do
begin
memRec := memTableEh1.BookmarkToRec(DBGridEh1.SelectedRows[i]);
if memRec.UpdateStatus <> usUnmodified then
begin
DataSetDriverEh1.UpdateRecord(memTableEh1.RecordsView.MemTableData, memRec);
memRec.MergeChanges();
end;
end;
end;
ความคิดเห็น
แสดงความคิดเห็น