起步软件技术论坛-X3

 找回密码
 立即注册
搜索
123
返回列表 发新帖
楼主: gail

代码创建一个待办任务

[复制链接]
发表于 2006-9-29 10:53:27 | 显示全部楼层
ExcelToTable可以设置起始行和终止行。楼主你可以先尝试的做一下
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-9-29 13:16:50 | 显示全部楼层
我尝试了,要不不会找你们的,因为这个终止行无法判断,
回复 支持 反对

使用道具 举报

发表于 2006-9-29 14:16:51 | 显示全部楼层
楼主你可以找一下Excel的资料,如果要使用ExcelToTable就必须指定终止行。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-9-29 14:31:55 | 显示全部楼层
我试,谢谢,这个对我来讲挺郁闷,如果你们有什么方案的话可以在上面留下言,谢谢了.
回复 支持 反对

使用道具 举报

发表于 2006-10-13 09:56:27 | 显示全部楼层

请教TWINS_TONY

// *******************************************************************************

// 创建任务

procedure TDMCJWLCRW.CreateCustomTaskClick(Sender: TObject);
VAR
  tpf : TTaskPubFunc;
  AFuncURL, ATaskTypeName, ATaskTypeID, ASubject, ABizField, ABizFieldValue,
  ADept, APosition, APerson : string;
begin
  if dsb.DataSet.FieldByName('GUID').AsString = '' then exit;

  tpf := TTaskPubFunc.Create(Self.Context);
  try
    AFuncURL := 'Biz:\PXAL\ZDYYWGN.Func';                                 // 自定义任务关联功能
    ATaskTypeName := '我的功能';                                          // 自定义任务关联的任务名称
    ATaskTypeID := 'MYCUSTOMFUNCDEAL';                                    // 自定义任务关联的任务ID
    ASubject := dsb.DataSet.FieldByName('Subject').AsString;
    ABizField := 'BIZ:\PXAL\DEMOSJK.DATABASE\ZDYRWGLDEMOB.TABLE\GUID.Field';  // 关联字段
    ABizFieldValue := dsb.DataSet.FieldByName('GUID').AsString;               // 关联字段值
    ADept := dsb.DataSet.FieldByName('FDept').AsString;;                      // 接收部门
    APosition := dsb.DataSet.FieldByName('FPosition').AsString;;              // 接收岗位
    APerson := dsb.DataSet.FieldByName('FPerson').AsString;;                  // 接收人

    tpf.UserStartTask(AFuncURL, ATaskTypeName, ATaskTypeID, ASubject, ABizField,
      ABizFieldValue, ADept, APosition, APerson);

    jsDialogs.ShowMsg('启动 ' + ASubject + ' 成功', '启动无流程任务');
  finally
    tpf.Free;
  end;
end;
这个里面的dsb对应的是哪个数据集,或者是哪个表,请指出,谢谢--------------------------GAIL
回复 支持 反对

使用道具 举报

发表于 2007-12-10 14:26:47 | 显示全部楼层

跟贴

跟贴
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-2 01:09 , Processed in 0.043178 second(s), 13 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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