全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1242
推到 Plurk!
推到 Facebook!

如何刪除wwdbrid(infopower)中一個列的資料

答題得分者是:hagar
kaisheng
一般會員


發表:26
回覆:47
積分:14
註冊:2003-11-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-01-01 01:23:24 IP:211.74.xxx.xxx 未訂閱
版本, 各位高手大家好 如何刪除wwdbrid(infopower)中一個列的資料 例如我選取某 1 row之後, 然後按(Ctrl Del)Hot key之後 就能刪除此row的資料 新竹的小凱
------
Number One
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-01-01 08:54:30 IP:202.39.xxx.xxx 未訂閱
procedure TForm1.wwDBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if (Shift = [ssCtrl]) and (Key = VK_DELETE) then begin
    if wwDBGrid1.SelectedList.Count <> 0 then begin
      for i := 0 to wwDBGrid1.SelectedList.Count -1 do begin
        wwDBGrid1.DataSource.DataSet.GotoBookmark(wwDBGrid1.SelectedList.Items[i]);
        wwDBGrid1.DataSource.DataSet.FreeBookmark(wwDBGrid1.SelectedList.Items[i]);
        wwDBGrid1.DataSource.DataSet.Delete;
      end;
    end;
  end;
end;
--- Everything I say is a lie. --<-<-<@
kaisheng
一般會員


發表:26
回覆:47
積分:14
註冊:2003-11-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-01-02 09:12:55 IP:210.64.xxx.xxx 未訂閱
引言:
procedure TForm1.wwDBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if (Shift = [ssCtrl]) and (Key = VK_DELETE) then begin
    if wwDBGrid1.SelectedList.Count <> 0 then begin
      for i := 0 to wwDBGrid1.SelectedList.Count -1 do begin
        wwDBGrid1.DataSource.DataSet.GotoBookmark(wwDBGrid1.SelectedList.Items[i]);
        wwDBGrid1.DataSource.DataSet.FreeBookmark(wwDBGrid1.SelectedList.Items[i]);
        wwDBGrid1.DataSource.DataSet.Delete;
      end;
    end;
  end;
end;
--- Everything I say is a lie. --<-<-<@
謝謝版主的回答 我試過上面的程式, 可以用,Thanks 可否再問一個問題 在wwdbgrid上按某一title的欄位就能sort其欄位的record, 程式要如何寫 新竹的小凱
------
Number One
系統時間:2024-07-09 4:11:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!