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 删除行换记录
猜你喜欢
转载自blog.csdn.net/qq_34550571/article/details/83536406
今日推荐
周排行