[问题]莫名其妙的推出**

jimmy · 发表于 2008-12-16 10:00:02

一个TSheetDoc中放了一个DataNavigator
当放在窗体中运行后，点击导航条的保存，整个运行的窗体就退出
我在跟踪导航条的DataNavigator1BeforeAction后跟踪到了系统初始化的TINIT类中的static procedure TINIT.Init后就全部退出了！

以前刚做好的时候还没有这个问题？
请问是什么原因，如何解决？

jimmy · 发表于 2008-12-16 10:32:35

给个回复啊！！！！

zfang · 发表于 2008-12-16 10:34:54

请问一下，这里做了什么代码呢？

jimmy · 发表于 2008-12-16 10:41:03

DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
中的代码，就这些
case TBizDataSetAction(Sender).ID of
  BizActnConsts.ActionDataSetDelete:
  begin
accept:=self.doValidating('已经到货无法删除！');
  end;
  else
accept:=true;
  end;

zfang · 发表于 2008-12-16 10:43:12

你跟踪后是执行到doValidating这个方法吗？

jimmy · 发表于 2008-12-16 10:45:32

跟那个方法没有关系，因为我把那个函数换成True也是一样的结果

jimmy · 发表于 2008-12-16 10:49:13

会不会跟导航条的某个属性有关，而我又无意中修改了那个属性

zfang · 发表于 2008-12-16 11:01:34

应该不会的。
这个功能能单独调试运行吗？

jimmy · 发表于 2008-12-16 11:03:10

是个子窗体
不能吧

atiger · 发表于 2008-12-16 11:04:01

那你重新在这个 TSheetDoc中放了一个DataNavigator ，用这个DataNavigator 的保存按钮，看看是否正常。
不应该跟DataNavigator 属性有关的

		自动登录	找回密码
密码			立即注册