TADODataSet.Sort := 'Field Name'or TADODataSet.Sort := 'Field Name DESC';
点击DBGrid栏目头排序。 procedure TMainForm.DBGrid3TitleClick(Column: TColumn); begin if Column <> nil then if Column = DBGrid3.Columns[0] then DataMod.ADOTST.Sort := 'ReceiveDate DESC' else DataMod.ADOTST.IndexFieldNames := Column.FieldName;end;
TADODataSet.Sort := 'Field Name'or TADODataSet.Sort := 'Field Name DESC';
procedure TMainForm.DBGrid3TitleClick(Column: TColumn);
begin
if Column <> nil then
if Column = DBGrid3.Columns[0] then
DataMod.ADOTST.Sort := 'ReceiveDate DESC'
else
DataMod.ADOTST.IndexFieldNames := Column.FieldName;end;