【结贴】请求支持**

noahark

呵呵，我要是能检查的出来还有哪里会造成这个错误也就不会问了，现在就是完全找不到哪里不对了呢

lixy

我说下我的步骤，
1、修改了信息里面的order语句，加了那个字段。初始化，报错，那个字段不存在。
2、修改任务导航(基类)，加了那个字段。
然后初始化运行，不报错了。

noahark

两次报错不一样，之前是下面的错误，之后就是上面传的那个图片了。这个getrecord method是不是还和哪里有关呢？

noahark

您说的
可以在标准主窗体上show事件后，加一个自动执行任务的代码。
通过网页传的参数，自动执行任务。
这个思路能给个例子么？不太明白应该怎么去做。麻烦了！

lixy

下面是自动运行任务的例子。但和你的需求有差异，仅供参考，不能按照这个直接修改！！！

lixy

楼主请回馈

noahark

2 的问题，我换了一个环境重新改确实不报错了，但是排序结果就是我最开始预计的高、低、中，见下图。里面填的是tpHigh        pLow        pNormal嘛。怎么改掉它呢？

noahark

人呢

lisb

让任务自动打开时，不自动跳转到工作台
1.3.3 修改事件代码 RunFirstFuncTimerTimer
procedure TSTANDARDSTYLEMAINFORM.RunFirstFuncTimerTimer(Sender: TObject);
begin
  RunFirstFuncTimer.Enabled := False;
  if FConfig.ActiveFunc <> '' then
    //RunFunc(FConfig.ActiveFunc, False)
  else if (Length(TFunc(Context.Owner).Parameters)>0) and (FFuncContainers.Count > 2) then
      ShowContainer(FFuncContainers[FFuncContainers.Count-1] as TFuncContainer)
  else if FFuncContainers.Count > 0 then
      ShowContainer(FFuncContainers[0] as TFuncContainer);

noahark

感谢lixy的大力支持，按优先级排序的事情大概可以这样解决一下：
  DataSetTaskIndex.SQL.Text :=  SysUtils.Format('SELECT %s, pn = case FPRIORITY when ''tpHigh'' then 1 when ''tpLow'' then 3 else 2 end FROM TTASK ' +
    ' WHERE FGROUPGUID = ''-1'' AND (FKIND in (''ftkActivity'', ''ftkReturn'', ''ftkTransmit'', '
    +' ''ftkNotify'', '''', ''ftkHasten'') or FKIND IS NULL) '
    +' ORDER BY pn, FCREATETIME DESC', [lTaskFileds]);
  DataSetTaskIndex.Order := 'pn, FCREATETIME desc';
由于原有的优先级的枚举值存在一些天然的缺陷，通过case加工一下就可以了。