【搞定】如何控制DataGrid中符合条件的记录不能被删除！**

xxhmong

何控制DataGrid中符合条件的记录不能被删除！

lisb

可以在窗体的DataNavigator控件的BeforeAction事件中写代码，比如
假如DataGrid对应的数据源是DataSetBroker1
procedure TMAINFORM.DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
begin
  case (Sender as TBizDataSetAction).ID of
    BizActnConsts.ActionDataSetDelete:
    begin
        jf  DataSetBroker1.DataSet.FieldByName('aa').asString = 'a' then
        begin
           jsDialogs.ShowMsg('不允许删除！','');
           Accept := False;
        end;
    end;
end;

end;

alang

也可以在数据集上的BeforeDelete事件来控制

xxhmong

谢谢

jacobpro

如果没有指定DataNavigator的datasource，那么怎么判断datasource呢？

jacobpro

直接用
if DataNavigator.DataSource = datasetbroker1 then
begin

end

是不行的，判断不会执行

jacobpro

已經新開貼