如何對DBGRIDH中選定的多行進行操作如刪除匯總等..

Question

rt

Answer 1

请参考：
要把DBGRID中的dgMultiSelect设成TRUE
  if DBGridEh.SelectedRows.Count > 1 then
  begin
    if Application.MessageBox('要所选择的多条记录销帐吗？', '提示:', MB_YESNO) = IDYES then
    begin
      QData.adocMain.BeginTrans;
      try
        for i := 0 to DBGridEh.SelectedRows.Count - 1 do
        begin
          ADOQryBillCancel.GotoBook(pointer(DBGridEH.SelectedRows.Items[i]));
          AdoCommand.CommandText := '.....'
          AdoCommand.Execute;
        end;
        QData.adocMain.CommitTrans;
        ADOQryBillCancel.Close;
        ADOQryBillCancel.Open;
        Application.MessageBox('销帐成功！', '提示', MB_OK);
      except
        QData.adocMain.RollbackTrans;
        Application.MessageBox('销帐失败！', '提示', MB_OK);
      end;
    end;
  end;

Answer 2

for i:=0 to DBGrid1.SelectedRows.Count-1 do //
          begin
            MessageDM.QrySelfSend.GotoBook(pointe
                           (DBGrid1.SelectedRows.Item[i]));//
            MessageDM.QrySelfSend.Delete;//
          end;
希望对你有所参考