在adoquer1 的SQL里写 select * from information order by id ascdbgrid 是按ID升序排列显示。
我现在要那按分组排列怎么写SQL语句?表informaiton 里字段分别为 id , model, SampleId , Workdate ,shift ,line parts ,fault ,如何在Dbgrid 里显示以上字段,且是该parts 为组,进行分组排列。 谢谢!!
我现在要那按分组排列怎么写SQL语句?表informaiton 里字段分别为 id , model, SampleId , Workdate ,shift ,line parts ,fault ,如何在Dbgrid 里显示以上字段,且是该parts 为组,进行分组排列。 谢谢!!
group by 'line parts'
order by id asc;
var
s: string;
begin
if AdoQuery1.Active = True then
begin
if DBGrid1.Tag = 0 then
begin
AdoQuery1.Sort := Column.FieldName + ' ASC';
s := Trim(Column.Title.Caption);
if (Pos('▽', s) > 0) or (Pos('△', s) > 0) then
s := Copy(s, 1, Length(s) - 2);
Column.Title.Caption := Format('%s △', [Trim(s)]);
Column.Font.Color := clBlack;
DBGrid1.Tag := 1;
end else begin
AdoQuery1.Sort := column.FieldName + ' DESC';
s := Trim(Column.Title.Caption);
if (Pos('▽', s) > 0) or (Pos('△', s) > 0) then
s := Copy(s, 1, Length(s) - 2);
Column.Title.Caption := Format('%s ▽', [Trim(s)]);
Column.Font.Color := clGreen;
DBGrid1.Tag := 0;
end;
end;
end;写在dbgrid的OnTitleClick事件中,可以对任何列排序!!!!
我是苯过头了,这么简单问题,居然还来问。哈哈。sousouwjh(sousouwjh) 谢谢你!!一语破天机。问题解决了。