帮忙看看这段代码哪里有问题？？谢谢 **

Mephist · 发表于 2005-12-24 16:31:25

我想通过代码来实现根据部门获取部门下的所有人员的功能（包含子部门），但是一直实现不了，帮我看看代码有问题没？？谢谢！！

procedure TAsset_Card_Info.DataSetAsset_Card_DataSetFieldText(DataSet: TDataSet; Field: TDataField; const Text: string);
var
lFilter : string ;
lsql : string ;
ltext : string ;
begin
  if Field.FieldName = 'DeptId' then
  begin
lFilter := 'where fpath like ''%\'+ Text +'.dpt%'' and fkind = ''.psm''';
DataSetAsset_Card_Data.Open ;
// lsql := 'select torgsystem.fid , torgsystem.fdisplayname from torgsystem where  fpath like ''%\'+ Text +'.dpt%'' and fkind = ''.psm''' ;
TSQLDataSet(DataSetAsset_Card_Data).BizFieldByName('UseMan').LookupDef.SQL.Text :=
TSQLDataSet(DataSetAsset_Card_Data).BizFieldByName('UseMan').LookupDef.SQL.Text + lFilter ;
ltext := TSQLDataSet(DataSetAsset_Card_Data).BizFieldByName('UseMan').LookupDef.SQL.Text ;
TSQLDataSet(DataSetAsset_Card_Data).GetLookupData('UseMan').Refresh ;
  end ;
end;

Mephist · 发表于 2005-12-26 11:27:43

顶。。。。。。。。。。。

Mephist · 发表于 2005-12-26 14:55:51

有人没有啊？？？？急啊。。

longzp · 发表于 2005-12-26 15:34:52

你总得说说什么错误信息，错误现象是什么吧！

longzp · 发表于 2005-12-26 15:38:01

是编译通不过？还是运行报错？　有没有单步跟踪？　单步跟踪是哪一行有问题？

longzp · 发表于 2005-12-26 15:44:32

＂通过代码来实现根据部门获取部门下的所有人员的功能＂就不是现在的这种做法，应该用组织机构表达式来做，具体使用手册２８３页有参考例子．　

Mephist · 发表于 2005-12-26 15:52:41

代码都执行了，没有错误，但是并没有把我需要的数据过滤出来

得到的结果还是按照默认的查找定义过滤的

Mephist · 发表于 2005-12-28 14:15:54

还没解决那。。等着

longzp · 发表于 2005-12-28 14:33:53

试试TSQLDataSet(DataSetAsset_Card_Data).open;
必须重新打开当前的数据集（lookdef），不是查找的数据集

Mephist · 发表于 2005-12-28 15:31:09

没有 Open 事件：（

		自动登录	找回密码
密码			立即注册