设为首页收藏本站
开启辅助访问 切换到窄版

起步软件技术论坛-X3

 找回密码
 立即注册
搜索
起步软件技术论坛-X3»论坛 › X3开发者技术论坛 › 开发者论坛 › 【结贴】编码实现决策数据集新增自定义维？急急**** ...
123下一页
返回列表 发新帖
查看: 569|回复: 29

【结贴】编码实现决策数据集新增自定义维？急急****

[复制链接]
cyw615
发表于 2007-11-6 10:51:43 | 显示全部楼层 |阅读模式
不知道什么原因？这段代码创建自定义维是正常的：
procedure TJCLFZDYW.Button1Click(Sender: TObject);
var
  ddd: TDecisionDimensionDef;
  dsd: TDecisionSummaryDef;
begin
  DecisionBrokerJCFXZDYWSJJ.DataSet.Close();
  TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.BeginUpdate;
  try
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DimensionDefs.Clear();
    ddd:=TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DimensionDefs.Add;
    ddd.FieldName:= 'FDEPTID';
    ddd.TableName:= 'TPERSON';
    ddd.FieldType:= TFieldType.ftString;
    ddd.DisplayName:='部门编号';
    ddd.IsPrimaryKey := False;
    ddd.Origin := 'FDEPTID';
    ddd.IsAgg := False;
    ddd.DimType :=TDecisionDimType.dtDataDim;
    ddd.DimStyleDefType :=TDecisionDimstyleDefType.dfColDim;
    ddd.DimIndexDef := 0;
    ddd.ShowSubTotal := False;
    ddd.CustomDim.FieldType :=TCustomDimType.cdtString;
    ddd.BinType := TBinType.binNone;

    ddd:=TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DimensionDefs.Add;
    ddd.FieldName := '_ZD_1';
    ddd.FieldType := TFieldType.ftString;
    ddd.DisplayName := '部门名称';
    ddd.IsPrimaryKey := False;
    ddd.IsAgg := False;
    ddd.IsUserField := False;
    ddd.DimType := TDecisionDimType.dtCustomDim;
    ddd.DimStyleDefType := TDecisionDimstyleDefType.dfRowDim;
    ddd.DimIndexDef := 0;
    ddd.ShowSubTotal := False;
    ddd.CustomDim.Strings.Add('部门A>10;TPERSON.FDEPTID = '+#39+'SDLGS01'+#39);
    ddd.CustomDim.Strings.Add('部门B>10;TPERSON.FDEPTID = '+#39+'530000000000'+#39);
    ddd.CustomDim.Strings.Add('部门C>10;TPERSON.FDEPTID = '+#39+'530000000009'+#39);
    ddd.CustomDim.FieldType := TCustomDimType.cdtString;
    ddd.BinType := TBinType.binNone;

    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.SummaryDefs.Clear();
    dsd:=TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.SummaryDefs.Add();
    dsd.FieldName := 'ESEX';
    dsd.TableName := 'TPERSON';
    dsd.FieldType := TFieldType.ftInteger;
    dsd.DisplayName :='部门人数';
    dsd.Origin := 'ESEX';
    dsd.IsPrimaryKey := False;
    dsd.IsAgg := True;
    dsd.IsUserField := False;
    dsd.SummType := TdecisionSummtype.dtDataSumm;
    dsd.SummFlags := TSummFlags.sfUnknown;

    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).Database.URL:= 'Biz:SYSTEMSystem.DataBase';
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).SQL.Text:='SELECT FDEPTID AS "部门编号", '
      +'"部门A>10" AS "部门名称", ESEX AS "部门人数" FROM TPERSON '
      +'WHERE (TPERSON.FDEPTID = ''SDLGS01'') GROUP BY FDEPTID, ESEX'
      +' UNION '
      +'SELECT FDEPTID AS "部门编号", "部门B>10" AS "部门名称", ESEX AS "部门人数" FROM TPERSON '
      +'WHERE (NOT(TPERSON.FDEPTID = ''SDLGS01'') AND (TPERSON.FDEPTID = ''530000000000'')) GROUP BY FDEPTID, ESEX'
      +' UNION '
      +'SELECT FDEPTID AS "部门编号", "部门C>10" AS "部门名称", ESEX AS "部门人数" FROM TPERSON '
      +'WHERE (NOT(TPERSON.FDEPTID = ''SDLGS01'') AND NOT(TPERSON.FDEPTID = ''530000000000'')'
      +' AND (TPERSON.FDEPTID = ''530000000009'')) GROUP BY FDEPTID, ESEX';

    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.ShowFieldName := False;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.SummAreaWidth := 1;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.SummAreaHeight := 1;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.MaxDims := 5;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.MaxSums := 10;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.MaxCells := 0;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DecisionType := TDecisionType.dctStatistics;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DatabaseURL := 'Biz:SYSTEMSystem.DataBase';
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.OriginalSQL.Text := 'SELECT * FROM TPERSON';
  finally
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.EndUpdate;
  end;
  TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).Open();
end;

但我对代码做了一下修改，以下代码就不行，出错：
procedure TJCLFZDYW.Button3Click(Sender: TObject);
var
  ddd: TDecisionDimensionDef;
  dsd: TDecisionSummaryDef;
begin
  DecisionBrokerJCFXZDYWSJJ.DataSet.Close();
  TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.BeginUpdate;
  try
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DimensionDefs.Clear();  
  ddd:=TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DimensionDefs.Add;
    ddd.FieldName:= 'XMLB';
    ddd.TableName:= 'PRCDP_XMJHSQB';
    ddd.FieldType:= TFieldType.ftString;
    ddd.DisplayName:='项目类别';
    ddd.IsPrimaryKey := False;
    ddd.Origin := 'XMLB';
    ddd.IsAgg := False;
    ddd.DimType :=TDecisionDimType.dtDataDim;
    ddd.DimStyleDefType :=TDecisionDimstyleDefType.dfRowDim;
    ddd.DimIndexDef := 0;
    ddd.ShowSubTotal := False;
    ddd.CustomDim.FieldType :=TCustomDimType.cdtString;
    ddd.BinType := TBinType.binNone;

    ddd:=TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DimensionDefs.Add;
    ddd.FieldName := '_ZD_1';
    ddd.FieldType := TFieldType.ftString;
    ddd.DisplayName := '建设规模区间';
    ddd.IsPrimaryKey := False;
    ddd.IsAgg := False;
    ddd.IsUserField := False;
    ddd.DimType := TDecisionDimType.dtCustomDim;
    ddd.DimStyleDefType := TDecisionDimstyleDefType.dfColDim;
    ddd.DimIndexDef := 0;
    ddd.ShowSubTotal := False;
    ddd.CustomDim.Strings.Add('X小于等于100RCDP_XMJHSQB.XMJSGM<=100');
    ddd.CustomDim.Strings.Add('X大于100RCDP_XMJHSQB.XMJSGM>100');
    ddd.CustomDim.FieldType := TCustomDimType.cdtString;
    ddd.BinType := TBinType.binNone;

    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.SummaryDefs.Clear();
    dsd:=TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.SummaryDefs.Add();
    dsd.FieldName := 'COUNT(PRCDP_XMJHSQB.XMBH)';
    dsd.TableName := 'PRCDP_XMJHSQB';
    dsd.FieldType := TFieldType.ftInteger;
    dsd.DisplayName :='项目个数';
    dsd.Origin := 'XMBH';
    dsd.IsPrimaryKey := False;
    dsd.IsAgg := True;
    dsd.IsUserField := False;
    dsd.SummType := TdecisionSummtype.dtDataSumm;
    dsd.SummFlags := TSummFlags.sfCount;

    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).Database.URL:= 'BizRCDPZHYWGLJJCPJXXXTPRCDPDB.DATABASE';
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).SQL.Text:='SELECT XMLB AS "项目类别", "X小于等于100" AS "建设规模区间", COUNT(PRCDP_XMJHSQB.XMBH) AS "项目个数" FROM PRCDP_XMJHSQB WHERE (PRCDP_XMJHSQB.XMJSGM<=100) GROUP BY XMLB UNION SELECT XMLB AS "项目类别", "X大于100" AS "建设规模区间", COUNT(PRCDP_XMJHSQB.XMBH) AS "项目个数" FROM PRCDP_XMJHSQB WHERE (NOT(PRCDP_XMJHSQB.XMJSGM<=100) AND (PRCDP_XMJHSQB.XMJSGM>100)) GROUP BY XMLB';
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.ShowFieldName := False;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.SummAreaWidth := 1;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.SummAreaHeight := 1;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.MaxDims := 5;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.MaxSums := 10;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.MaxCells := 0;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DecisionType := TDecisionType.dctStatistics;
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.DatabaseURL := 'BizRCDPZHYWGLJJCPJXXXTPRCDPDB.DATABASE';
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.OriginalSQL.Text := 'SELECT * FROM PRCDP_XMJHSQB';
  finally
    TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.EndUpdate;
  end;
  TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).Open();
end;

出错提示：

error.jpg

15.27 KB, 下载次数: 218
回复

使用道具 举报

atiger
发表于 2007-11-6 11:20:58 | 显示全部楼层
楼主，我还没有收到你反馈我上次的项目信息采集邮件呢，麻烦你抽空填写发送一下，谢谢
回复 支持 反对

使用道具 举报

atiger
发表于 2007-11-6 11:34:55 | 显示全部楼层
你跟踪过吗？1楼的错误信息停在哪里了？

还有你对比一下，肯定写法有不对的，例如

  ddd.CustomDim.Strings.Add('X小于等于100RCDP_XMJHSQB.XMJSGM<=100');
    ddd.CustomDim.Strings.Add('X大于100RCDP_XMJHSQB.XMJSGM>100');
回复 支持 反对

使用道具 举报

cyw615
 楼主| 发表于 2007-11-6 11:41:34 | 显示全部楼层
这个事情我也和我们的王总说过，反馈的事你只有找他，我只管技术！

我跟踪过了，就停在这句：
TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).DecisionDef.EndUpdate;
回复 支持 反对

使用道具 举报

cyw615
 楼主| 发表于 2007-11-6 11:42:57 | 显示全部楼层
以前的条件是字段是字符型的，现在我改成数值型的！
回复 支持 反对

使用道具 举报

cyw615
 楼主| 发表于 2007-11-6 11:44:03 | 显示全部楼层
这个就是我复制出来的代码：
object DataSetJCFXZDYWSJJ: TDecisionDataSet
  Relation.DeleteRule = krNoAction
  Relation.UpdateRule = krNoAction
  ID = 'JCFXZDYWSJJ'
  DisplayName = #20915#31574#20998#26512#33258#23450#20041#32500#25968#25454#38598
  Database.Reference = 'Biz:\PRCDPZHYWGLJJCPJXXXT\PRCDPDB.DATABASE'
  CheckConstraints = <>
  Params = <>
  DecisionDef.DimensionDefs = <
    item
      FieldName = 'XMLB'
      TableName = 'PRCDP_XMJHSQB'
      FieldType = ftString
      DisplayName = #39033#30446#31867#21035
      Origin = 'XMLB'
      IsPrimaryKey = False
      IsAgg = False
      IsUserField = False
      DimType = dtDataDim
      DimStyleDefType = dfRowDim
      DimIndexDef = 0
      ShowSubTotal = False
      CustomDim.FieldType = cdtString
      BinType = binNone
    end
    item
      FieldName = '_ZD_1'
      FieldType = ftString
      DisplayName = #24314#35774#35268#27169#21306#38388
      IsPrimaryKey = False
      IsAgg = False
      IsUserField = False
      DimType = dtCustomDim
      DimStyleDefType = dfColDim
      DimIndexDef = 0
      ShowSubTotal = False
      CustomDim.Strings.Strings = (
        'X'#23567#20110#31561#20110'100RCDP_XMJHSQB.XMJSGM<=100'
        'X'#22823#20110'100RCDP_XMJHSQB.XMJSGM>100')
      CustomDim.FieldType = cdtString
      BinType = binNone
    end>
  DecisionDef.SummaryDefs = <
    item
      FieldName = 'COUNT(PRCDP_XMJHSQB.XMBH)'
      TableName = 'PRCDP_XMJHSQB'
      FieldType = ftInteger
      DisplayName = #39033#30446#20010#25968
      Origin = 'XMBH'
      IsPrimaryKey = False
      IsAgg = True
      IsUserField = False
      SummType = dtAggSumm
      SummFlags = sfCount
    end>
  DecisionDef.ShowFieldName = False
  DecisionDef.SummAreaWidth = 1
  DecisionDef.SummAreaHeight = 1
  DecisionDef.MaxDims = 5
  DecisionDef.MaxSums = 10
  DecisionDef.MaxCells = 0
  DecisionDef.Database.Reference = 'Biz:\PRCDPZHYWGLJJCPJXXXT\PRCDPDB.DATABASE'
  DecisionDef.DecisionType = dctStatistics
  DecisionDef.DataSetID = 'JCFXZDYWSJJ'
  DecisionDef.DisplayName = #20915#31574#20998#26512#33258#23450#20041#32500#25968#25454#38598
  DecisionDef.OriginalSQL.Text = 'SELECT *'#13#10'  FROM PRCDP_XMJHSQB'
  Left = 146
  Top = 106
end
回复 支持 反对

使用道具 举报

atiger
发表于 2007-11-6 14:00:04 | 显示全部楼层
这个事情我也和我们的王总说过，反馈的事你只有找他，我只管技术！
好，谢谢。

这个问题，TDecisionDataSet 怎么还用union呢？
TDecisionDataSet(DecisionBrokerJCFXZDYWSJJ.DataSet).SQL.Text:='SELECT XMLB AS "项目类别", "X小于等于100" AS "建设规模区间", COUNT(PRCDP_XMJHSQB.XMBH) AS "项目个数" FROM PRCDP_XMJHSQB WHERE (PRCDP_XMJHSQB.XMJSGM<=100) GROUP BY XMLB UNION SELECT XMLB AS "项目类别", "X大于100" AS "建设规模区间", COUNT(PRCDP_XMJHSQB.XMBH) AS "项目个数" FROM PRCDP_XMJHSQB WHERE (NOT(PRCDP_XMJHSQB.XMJSGM<=100) AND (PRCDP_XMJHSQB.XMJSGM>100)) GROUP BY XMLB';

修改为
'SELECT XMLB AS "项目类别", COUNT(PRCDP_XMJHSQB.XMBH) AS "项目个数" FROM PRCDP_XMJHSQB  GROUP BY XMLB ' 看看
回复 支持 反对

使用道具 举报

cyw615
 楼主| 发表于 2007-11-6 14:22:34 | 显示全部楼层
不行！还是提示同样的问题
回复 支持 反对

使用道具 举报

atiger
发表于 2007-11-6 14:56:32 | 显示全部楼层
这是我的代码，

var
    ddd: TDecisionDimensionDef;
    dsd: TDecisionSummaryDef;
begin
    DecisionBrokerJCSJJ1.DataSet.Close();
TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.BeginUpdate;
try
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.DimensionDefs.Clear();  //出错语句
    ddd:=TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.DimensionDefs.Add;
    ddd.FieldName:= 'FPRIORITY';
    ddd.TableName:= 'TTask';
    ddd.FieldType:= TFieldType.ftString;
    ddd.DisplayName:='重要度';
    ddd.IsPrimaryKey := False;
    ddd.Origin := 'FPRIORITY';
    ddd.IsAgg := False;
    ddd.DimType :=TDecisionDimType.dtDataDim;
    ddd.DimStyleDefType :=TDecisionDimstyleDefType.dfColDim;
    ddd.DimIndexDef := 0;
    ddd.ShowSubTotal := False;
    ddd.CustomDim.FieldType :=TCustomDimType.cdtString;
    ddd.BinType := TBinType.binNone;

    ddd:=TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.DimensionDefs.Add;
    ddd.FieldName:= 'FSPERSONNAME';
    ddd.TableName:= 'TTask';
    ddd.FieldType:=TFieldType.ftString;
    ddd.DisplayName:='提交人';
    ddd.IsPrimaryKey := False;
    ddd.Origin := 'FSPERSONNAME';
    ddd.IsAgg := False;
    ddd.DimType :=TDecisionDimType.dtDataDim;
    ddd.DimStyleDefType := TDecisionDimstyleDefType.dfColDim;
    ddd.DimIndexDef := 0;
    ddd.ShowSubTotal := False;
    ddd.CustomDim.FieldType := TCustomDimType.cdtString;
    ddd.BinType := TBinType.binNone;

    ddd:=TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.DimensionDefs.Add;
    ddd.FieldName := '_ZD_1';
    ddd.FieldType := TFieldType.ftString;
    ddd.DisplayName := '自定义维';
    ddd.IsPrimaryKey := False;
    ddd.IsAgg := False;
    ddd.IsUserField := False;
    ddd.DimType := TDecisionDimType.dtCustomDim;
    ddd.DimStyleDefType := TDecisionDimstyleDefType.dfColDim;
    ddd.DimIndexDef := 1;
    ddd.ShowSubTotal := False;
    ddd.CustomDim.Strings.Add('bb;TTASK.FPREEMPTMODE = '+#39+'omFirstProcess'+#39);
    ddd.CustomDim.Strings.Add('aa;TTASK.FPREEMPTMODE = '+#39+'omFirstOpen'+#39);
    ddd.CustomDim.FieldType := TCustomDimType.cdtString;
    ddd.BinType := TBinType.binNone;

    ddd:=TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.DimensionDefs.Add;
    ddd.FieldName := 'NMM';
    ddd.FieldType := TFieldType.ftString;
    ddd.DisplayName := '匿名整数类型';
    ddd.IsPrimaryKey := False;
    ddd.IsAgg := False;
    ddd.IsUserField := False;
    ddd.DimType := TDecisionDimType.dtCustomDim;
    ddd.DimStyleDefType := TDecisionDimstyleDefType.dfColDim;
    ddd.DimIndexDef := 2;
    ddd.ShowSubTotal := False;
    ddd.CustomDim.Strings.Add('匿名是;TTASK.FISANONYMITY = 1');
    ddd.CustomDim.Strings.Add('匿名否;TTASK.FISANONYMITY = 0');
    ddd.CustomDim.FieldType := TCustomDimType.cdtString;
    ddd.BinType := TBinType.binNone;


    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.SummaryDefs.Clear();
    dsd:=TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.SummaryDefs.Add();
    dsd.FieldName := 'COUNT(TTASK.FGUID)';
    dsd.TableName := 'TTask';
    dsd.FieldType := TFieldType.ftString;
    dsd.DisplayName :='个数_GUID';
    dsd.Origin := 'FGUID';
    dsd.IsPrimaryKey := False;
    dsd.IsAgg := True ;
    dsd.SummType := TdecisionSummtype.dtAggSumm;
    dsd.SummFlags := TSummFlags.sfSum;

    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).Database.URL:= 'Biz:\SYSTEM\System.DataBase';
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).SQL.Text:='SELECT FPRIORITY AS "重要度", FSPERSONNAME AS "提交人", COUNT(TTASK.FGUID) AS "个数_GUID" FROM TTASK GROUP BY FPRIORITY, FSPERSONNAME ORDER BY FPRIORITY, FSPERSONNAME';

    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.ShowFieldName := False;
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.SummAreaWidth := 1;
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.SummAreaHeight := 1;
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.MaxDims := 5;
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.MaxSums := 10;
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.MaxCells := 0;
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.DecisionType := TDecisionType.dctStatistics;
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.DatabaseURL := 'Biz:\SYSTEM\System.DataBase';
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.OriginalSQL.Text := 'SELECT * FROM TTASK';
finally
  TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).DecisionDef.EndUpdate;
end;
    TDecisionDataSet(DecisionBrokerJCSJJ1.DataSet).Open();
end;
回复 支持 反对

使用道具 举报

cyw615
 楼主| 发表于 2007-11-6 15:33:28 | 显示全部楼层
好的！我先试试
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-30 04:19 , Processed in 0.053146 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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