我用了BNavigator1,ADOQuery1,dbgrid;
但我发现只有将dbgrid中Options.dgediting设为true,BNavigator1才能实现修改、增加等,这时就可随便修改了,但我希望用户在点击BNavigator1中的nbedit才能修改增加
怎么办:
procedure Tmain.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
case Button of
nbEdit : begin
main.DBGrid1.Options.dgediting:=true;//这里肯定不行,
//应怎么实现
end;
end;
end;
但我发现只有将dbgrid中Options.dgediting设为true,BNavigator1才能实现修改、增加等,这时就可随便修改了,但我希望用户在点击BNavigator1中的nbedit才能修改增加
怎么办:
procedure Tmain.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
case Button of
nbEdit : begin
main.DBGrid1.Options.dgediting:=true;//这里肯定不行,
//应怎么实现
end;
end;
end;
Button: TNavigateBtn);
begin
case Button of
nbEdit : begin
main.DBGrid1.Columns[0].ReadOnly:=False;
//用户改完之后main.DBGrid1.Columns[0].ReadOnly:=True;
end;
end;
end;