【搞定】关于选择好合同就弹出保存提示的问题**

jacobpro

procedure TMainForm.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
var
  ls: string;
begin
  ls := TBizDataSetAction(DataNavigator1.Buttons[0].Action).CurrentDataSource.DataSet.Name;
  if ((Sender as TBizDataSetAction).ID = BizActnConsts.ActionDataSetAppend) then
  begin
    if ls = 'DataSetMaster' then
    begin
      Accept := False;
      jsdialogs.ShowMsg('²»ÄÜÐÂÔö£¡','ÌáʾÐÅÏ¢')
    end;
  end;
  if ((Sender as TBizDataSetAction).ID = BizActnConsts.ActionDataSetDelete) then
  begin
    if ls = 'DataSetMaster' then
    begin
      Accept := False;
      jsdialogs.ShowMsg('²»ÄÜɾ³ý£¡','ÌáʾÐÅÏ¢')
    end;
  end;
end;
事件如上。
选好合同就会打开保存提示。一直查不到原因。

jiahaiminghr

对话框和楼上的代码没有关系吧？

jacobpro

那为什么会弹出这个对话框~~
求教

jiahaiminghr

这个对话框应该是你用代码show出来的吧？

jacobpro

没。找了半天没找到相关SHOW的代码。哈哈

可能是什么原因引起的？原来是没有该弹出对话框的。但是把测试库上的东西移入正式库就有了。郁闷的莱。

强烈希望能告诉我可能的情况，我好排查。

jacobpro

请求援助~~

jiahaiminghr

这样的对话框提示不是我们做的，应该是你们自己写的。

jacobpro

这个问题先放着吧。我们再仔细核对一下。谢谢您的耐心指点。

jiahaiminghr

楼主，不客气！

找到原因后请反馈，谢谢！

jiahaiminghr

由于长时间没有反馈，先结贴了，有问题请开新贴！