在数据集中做文章了,如用TADOQuery var SQLs: string; begin SQLs := 'SELECT * FROM (SELECT * CASE FieldUserId = ' + UserId + ' WHEN 0 ELSE 1 END AS MyUser FROM Table1) ORDER BY MyUser'//FieldUserId中的字段编号名称,UserId为系统的用户编号 with ADOQuery1 do if Active then Open; SQL.Clear; SQL.Add(SQLs); Open; end;
var
SQLs: string;
begin
SQLs := 'SELECT * FROM (SELECT * CASE FieldUserId = ' + UserId + ' WHEN 0 ELSE 1 END AS MyUser FROM Table1) ORDER BY MyUser'//FieldUserId中的字段编号名称,UserId为系统的用户编号
with ADOQuery1 do
if Active then Open;
SQL.Clear;
SQL.Add(SQLs);
Open;
end;
不过如果说数据集的第一条,那么就要在数据集的SQL语句上下功夫了,不过没这必要。