|
一个窗体,左面树,右面是DATADRID,用不同数据集但其实是相同的数据.也就是说专门做了的DATASET给树来用.
要求是这样:点击左面树的节点,右面根据选中的左面的节点,列出下级所有节点(包括本级)。
我给误读了,以为是本级和下级的
procedure TCTKJ.DataTreeList1Click(Sender: TObject);
var FilterStr: string;
begin
FilterStr:=Self.DataSetBroker2.DataSet.FieldByName('GUID').AsString;
TSQLDataSet(Self.InfoBroker1.Info.DataSetByID('KHDA')).SQLFilter:='(GUID = '''+FilterStr+''') or (Parent_ID ='''+FilterStr+''')';
TSQLDataSet(Self.InfoBroker1.Info.DataSetByID('KHDA')).SQLFiltered:= True;
TSQLDataSet(Self.InfoBroker1.Info.DataSetByID('KHDA')).Open;
end;
怎么改成过滤出所有下级节点的信息啊???DATATREELIST里面有没有简便一点的方法???
求求你们了!!!帮帮我吧. |
|