【揭帖】多行数据流转出错**

geforceee

我用代码启动一个流程,这个流程有十二行数据

但我写完十二行数据流转时

却提示:

DataSet1: Field 'AND' not found

填数据是用的表单文档

难道多行时只能用GRID???

流转条件我写的TRUE.

也就是无条件流转啊

gaihl

请贴出代码来看一下

geforceee

for i:=1 to 9 do
         begin
         if DataSetBroker1.DataSet.Active  then
          DataSetBroker1.DataSet.Close;
         DataSetBroker1.DataSet.Open;
         datasetbroker1.DataSet.Filter := 'FGSID='+ sFGSID +' AND NY='+sY+'0'+inttostr(i);
           dialogs.ShowMessage('FGSID='+ sFGSID +' AND NY='+sY+'0'+inttostr(i));
         datasetbroker1.DataSet.Filtered :=True;
         DataSetBroker1.DataSet.Refresh;
         sStyle := dataSetBroker1.DataSet.FieldByName('QRBZ').AsString;
       //  Tsqldataset(
       //  dialogs.ShowMessage(dataSetBroker1.DataSet.FieldByName('QRBZ').AsString);
         if sStyle  <> '1' then
         begin
          sMonth :=  sMonth + inttostr(i)+'月';
          CheckStyle(sStyle,sY,sY+'0'+inttostr(i),sFGSID);
          end;
        end;

       for i:=10 to 12 do
         begin
         if DataSetBroker1.DataSet.Active  then
          DataSetBroker1.DataSet.Close;
         DataSetBroker1.DataSet.Open;
         TsqlDataSet(datasetbroker1.DataSet).SQLFilter:= 'FGSID='+ sFGSID +' AND NY='+sY+inttostr(i);
         TsqlDataSet(datasetbroker1.DataSet).SQLFiltered:=True;
         DataSetBroker1.DataSet.Refresh;
         sStyle := dataSetBroker1.DataSet.FieldByName('QRBZ').AsString;
         if sStyle  <> '1' then
         begin
          sMonth := sMonth + inttostr(i) + '月';
          CheckStyle(sStyle,sY,sY+inttostr(i),sFGSID);
          end;
        end;

    if sMonth  <> '' then
          begin
        //给流程一些必要的参数
                 //分公司ID与部门ID转换
                  case StrToInt(sFGSID) of
                     11 : sDDept := 'HSGDFGS';
                     12 : sDDept := 'BNGDFGS';
                     13 : sDDept := 'YXGDFGS';
                     14 : sDDept := 'LHGDFGS';
                     15 : sDDept := 'GTGDFGS';
                     16 : sDDept := 'KFQGDFGS';
                     17 : sDDept := 'LGNDJ';
                     18 : sDDept := 'DHYXFGS';
                   else
                     exit;
                   end;
                 sFlowUrl :='Biz:\LAMS\PROC\YWLC1.Proc';
                 sFlowID := 'FBSID'+ sFGSID +'_Y'+sY;
                 sStartProc := 'FJ_2_TZSJSCGN';
                 sSubject := '请分公司上传'+ sY+'年'+sMonth +'数据';
                 sDescription :='请'+ sDDept +'补充'+sY +'年数据';
                 UserStartFlow(sFlowUrl,sDDept,'XSZG','',sStartProc,sFlowID,sSubject,sDescription);
/。。。。
{以下省略}


procedure TMainForm.CheckStyle(AStyle,AYear,AMonth,ADDept:string);
begin
     if AStyle = '0' then
         datasetbroker1.dataset.edit
     else
         datasetbroker1.dataset.Append;
     datasetbroker1.dataset.FieldByName('fgsid').AsString:=ADDept;
     datasetbroker1.dataset.FieldByName('ny').AsString:=AMonth;
     datasetbroker1.dataset.FieldByName('qrbz').AsString := '0';
     datasetbroker1.dataset.FieldByName('guid').AsString := 'FBSID'+ ADDept +'_Y'+AYear;
     datasetbroker1.dataset.ApplyUpdates;
end;



这之前的流程数据写入和启动流程都没有问题，就是在

下一功能启动后，写完数据要流转时就出问题了
下一功能的是无条件流转。

启动流转的按钮是我自己设的

定义TFLOWACTION，，
actflowout: Tflowaction;

actflowout.execute;

这样有问题吗？
一定要用流转工具条？？

gaihl

楼主不用本地过滤会报错吗？
不用
datasetbroker1.DataSet.Filter := 'FGSID='+ sFGSID +' AND NY='+sY+'0'+inttostr(i);
           dialogs.ShowMessage('FGSID='+ sFGSID +' AND NY='+sY+'0'+inttostr(i));

gaihl

楼主不用过滤会报错吗？

gaihl

调试定位一下，是在哪出的错，哪一行

geforceee

问题搞定//结贴吧~~

gaihl

谢谢返馈

geforceee

问题就是过滤那,但是FGSID和NY这个字段都有,赋值也没问题,怎么会出

没有"AND"列????

这才是不明白的地方

gaihl

是不是FGSID的值得用引号括起来啊