5楼问题没有属性,自己在OnCustomDrawCell里面写代码。可以在论坛上查查。如果还有问题单独开贴。
4楼的问题:
任务中心信息里面这段代码添加了主题等字段。
procedure TTASKCENTERINFO.InfoCreate(Sender: TObject);
begin
FFilterPolicy := TDataSetPolicy.Create(Self);
FFilterPolicy.Target.URL := SysUtils.Format('%s\%s%s',
[BizClassURL.BizURL.URL, DataSetTaskIndex.ID, BizObjConsts.cDataSetExt]);
CanBrowseFieldNames := [
'FPRIORITY','FSUBJECT', 'FTYPENAME',
'FPARTYNAME','FPLANNAME','FSTATE','FLASTCHANGETIME',
'FCREATETIME','FSPERSONNAME','FSOGNNAME',
'FSPOSITIONNAME','FSDEPTNAME','FRPERSONNAMES',
'FLIMITTIME','FSTARTTIME',
'FFINISHTIME', 'FPLANSTARTTIME', 'FPLANFINISHTIME',
'FDISTRIBUTETIME'
];
BrowseFieldNames := CanBrowseFieldNames; |