用一個button,怎樣來刪除多個dataset中的一個的一條記錄?(100分)

  • 主题发起人 主题发起人 dialog1
  • 开始时间 开始时间
D

dialog1

Unregistered / Unconfirmed
GUEST, unregistred user!
窗體上有多個DBgrid對應多個ADODataSet,和一個button

用一個button,怎樣來刪除多個dataset中的一個的一條記錄?
 
if DBGrid1.Focused then
DBGrid1.DataSource.DataSet.Delete;
 
楼上的不行,因为你的button在执行单击事件前就会得到焦点,这样
dbgrid1.focused永远为假,不能删除

只有建立一个模块级的变量,在dbgrid得到焦点时记录它,再在点击中判断并删除
var
dbgTemp:TDBGrid;

//多个DBGrid都指向这个事件
procedure TForm1.DBGridEnter(Sender: TObject);
begin
dbgTemp:=Sender;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
dbgTemp.DataSource.DataSet.Delete;
end;
 
for i:=0 to ComponentCount-1 do
begin
if Components is TDBGrid then
begin
TDBGrid(Components).DataSource.DataSet.Delete;
end;
end;
 
ysai跟我想的一樣,我想可能沒有別的簡單辦法了
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
800
import
I
后退
顶部