procedure TFormBOM.SptCraftDelClick(
Sender: TObject);
var
i: integer;
begin
if not CdsCraftCode.Active then
Exit;
if CdsCraftCode.RecordCount = 0 then
Exit;
if DBGCraftCode.SelectedRows.Count = 0 then
Exit;
for i := DBGCraftCode.SelectedRows.Count-1 downto 0 do
begin
CdsCraftCode.GotoBookmark(pointer(DBGCraftCode.SelectedRows.Items[i]));
CdsCraftCode.Delete;
end;
end;
delphi 删除行选记录
最新推荐文章于 2019-10-22 10:55:34 发布