潮
潮州人
Unregistered / Unconfirmed
GUEST, unregistred user!
原码如下:
procedure TUserMangerForm.GetNext(Node : TTreeNode;Parent : integer);
begin
if not UserADOQuery.Active then UserADOQuery.Open;
UserADOQuery.Filter := 'GroupID = Parent '; 出错的行Parent是个整数变量.
UserADOQuery.Filtered := True;
if UserADOQuery.RecordCount < 1 then
begin
Node.HasChildren := false;
exit;
end;
procedure TUserMangerForm.GetNext(Node : TTreeNode;Parent : integer);
begin
if not UserADOQuery.Active then UserADOQuery.Open;
UserADOQuery.Filter := 'GroupID = Parent '; 出错的行Parent是个整数变量.
UserADOQuery.Filtered := True;
if UserADOQuery.RecordCount < 1 then
begin
Node.HasChildren := false;
exit;
end;