【结帖】为什么在运行平台有问题？？？

beidou

我写了一个很简单的循环，为什么在建模平台能够正常执行，可是在运行平台就不能正常执行循环
这个事件是 ToolBar 建了一个 ToolButton ，然后加的ActionList
，写的事件是ActionList的Execute 事件
下面是代码：

procedure TSGRYHZ.ActionSAVExecute(Sender: TObject);
var
    lLookUpDateBegin: String;
begin
  lLookUpDateBegin := GetDateEditBegin;
  if (PageControl.ActivePageIndex=0) and (DocView.DocClassID='SGRYHZ.SheetDoc') then
    begin
    TSqlDataSet(DataSetBrokerCKS.DataSet).UserFilter:='CONSTRUCTIONPERSONNEL.Data = '''+ lLookUpDateBegin+'''';
    with DataSetBrokerCKS.DataSet do
      begin
        while IsEmpty=false do
          begin
            First;
            Delete;
            Next;
          end;
          ApplyUpdates;
      end;

      with Tsqldataset(DataSetBrokerHZS.DataSet) do
      begin
        First;
        while not Eof do
        begin
          DataSetBrokerCKS.DataSet.Append;
          DataSetBrokerCKS.DataSet.FieldByName('JZSGRY').AsInteger :=
          DataSetBrokerHZS.DataSet.FieldByName('b').AsInteger;
          DataSetBrokerCKS.DataSet.FieldByName('AZSGRY').AsInteger :=
          DataSetBrokerHZS.DataSet.FieldByName('c').AsInteger;
          DataSetBrokerCKS.DataSet.FieldByName('SGUnit').AsString :=
          DataSetBrokerHZS.DataSet.FieldByName('SGUnit').AsString;
          DataSetBrokerCKS.DataSet.FieldByName('Data').AsDateTime :=
          DataSetBrokerHZS.DataSet.FieldByName('aaa').AsDateTime;
          DataSetBrokerCKS.DataSet.Post;
          DataSetBrokerHZS.DataSet.Next;
        end;
          DataSetBrokerCKS.DataSet.ApplyUpdates;
      end;


    end
  else
    begin
      DataSetBrokerCKS.DataSet.ApplyUpdates;
      DataSetBrokerCKZ.DataSet.ApplyUpdates;
      DataSetBrokerCKX.DataSet.ApplyUpdates;
    end;
end;

版主帮着想想办法！！！

zfang

编译迁入刷新缓存了吗？

具体怎么不能正常执行？

beidou

编译，刷新。。都作了。。。
重启机器了都
我用showmessage试验了一下，好像，运行平台里面那段代码都没有执行，好像是TSqlDataSet(DataSetBrokerCKS.DataSet).UserFilter以后就没有执行

beidou

自己顶一下
高手有好办发，或者遇见过类似情况的说一下。

alang

在建模平台能够正常执行
说明你的程序是对的

在运行平台就不能正常执行循环
说明你没有把所有有关的资源都编译 签入 刷新缓存

beidou

to alang
if (PageControl.ActivePageIndex=0) and (DocView.DocClassID='SGRYHZ.SheetDoc') then
运行平台的时候，好像这句判断没有进去，理论上是应该进去的
我这个判断写的有问题吗？？？

beidou

DocView.DocClassID='SGRYHZ.SheetDoc'
更确切的说就是这个判断，在建模就是对的，在运行就判断为false，就不执行下面的语句了，不知道为什么

beidou

自己再顶一下，要是上午再不行就得给客服打电话了，着急啊

beidou

OK，问题解决了
justep客服真是一个尽职尽责的好团队啊，^_^

lixy

这个其实是个缺陷，调试期是DocView.DocClassID='SGRYHZ.SheetDoc'
运行期变成全大写字符串了。
我已经提交缺陷了，楼主用uppercase转换下，调试和运行就一致了。