起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 217|回复: 9

切换到另外的功能时候报错了

[复制链接]
发表于 2010-4-26 14:30:14 | 显示全部楼层 |阅读模式
再IE中运行,打开了2个独立的功能,在需要的时候切换到功能中,然后进行编辑的时候就报下面的错了,怎么解决??

未命名.jpg

4.38 KB, 下载次数: 137

回复

使用道具 举报

发表于 2010-4-26 14:43:39 | 显示全部楼层
从错误上看不出来是什么原因,楼主可以 通过studio中调试运行看看是否可以跟踪到此异常。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-26 15:16:35 | 显示全部楼层
跟踪了,,就跳到保存那句
回复 支持 反对

使用道具 举报

发表于 2010-4-26 15:23:35 | 显示全部楼层
保存那句?
具体是什么样的代码?
最好是前后看看,可以尝试屏蔽下代码看看是否正常,如果正常再一点点的放开代码,这样方便定位出具体的原因。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-26 15:29:27 | 显示全部楼层
procedure TWT.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
const
  cErrorMsg = 'Record not found or changed by another user';
begin
  try
      case TBizDataSetAction(Sender).ID of
          BizActnConsts.ActionDataSetRefresh:
          begin
             BGBH := DataSetWTD.FieldByName('BGBH').AsString;
             DataSetWTD.CancelUpdates;
          end; // { 刷新 }
          BizActnConsts.ActionDataSetSave:
          begin
              try
                  DataSetWTD.ApplyUpdates;
                  DataSetJYXM.ApplyUpdates;
                  // SysUtils.Abort;
              except
                  sysutils.Sleep(1000);
              end;
             jsdialogs.ShowMsg('保存成功!','提示'); { 保存 }
         end;
      end;
  except
     //
  end;
end;
回复 支持 反对

使用道具 举报

发表于 2010-4-26 15:39:02 | 显示全部楼层
1、beforeaction中作刷新或者保存时是你自己接管了动作,为什么要这么做呢?
beforeaction一般用于判断是否可以保存或者刷新。
2、你接管了beforeaction动作后,为什么还要让此动作执行下去呢?也就是说你上面代码中没有sysutils.abort或者accept:=false
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-26 15:44:33 | 显示全部楼层
不太懂,那意思说放掉sysutils.abort这句,我前面这样写的也不行,帮我改下上面的代码看
回复 支持 反对

使用道具 举报

发表于 2010-4-26 15:46:53 | 显示全部楼层
你把上面的代码屏蔽,然后跑一下试试是否正常了。
你上面的代码 就是两个case语句中的最后加上一句 accecpt:=false或者sysutils.abort,然后再试试呢。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-26 15:52:15 | 显示全部楼层
好吧。我这个错误不是时时都错的,有时候错,有时候不错,,,
回复 支持 反对

使用道具 举报

发表于 2010-4-26 16:04:47 | 显示全部楼层
那你按照上面的改下,然后再观察看看吧。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-9 03:27 , Processed in 0.040172 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表