12-09-2017, 08:34 PM
وضعت هذا الكود
ولكن تظهر تلك الراسالة
ما هو الحل
كود :
{$J+}
const PreviousColumnIndex : integer = 0;
{$J-}
begin
if DBGrid1.DataSource.DataSet is TCustomADODataSet then
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
begin
try
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
except
end;
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style + [fsBold];
PreviousColumnIndex := DBGrid1.Columns[PreviousColumnIndex].index;
if (Pos(DBGrid1.Columns[2].Field.FieldName, Sort) = 1)
and (Pos(' DESC', Sort)= 0) then
Sort := DBGrid1.Columns[2].Field.FieldName + ' DESC'
else
Sort := DBGrid1.Columns[2].Field.FieldName + ' ASC';
end;ما هو الحل