关于dxDBGrid的排序问题

[Tomato77]

我在ColumnClick的事件中这样写:

procedure TForm1.dxDBGridMainColumnClick(Sender: TObject;
Column: TdxDBTreeListColumn);
begin
try
with (dxDBGridMain.DataSource.DataSet as TCustomADODataSet) do
begin
if not Active then exit;
if pos('ASC',string(Sort)) <> 0 then
Sort := format('%s DESC',[Column.FieldName,Column.FieldName])
else
Sort := format('%s ASC',[Column.FieldName,Column.FieldName]);
end;
except
on e: Exception do
Begin
application.MessageBox(Pchar(e.Message),'');
End;
end;
end;


为什么连接ACCESSS数据库时就没问题,点击某列头可以进行排序。但连接SQL SERVER时,当点击某列头就出现错误? 提示:"invalid class typecast"

[Tomato77]

哦,是吗,请问在哪里设置？

[paranoia190]

他本来不就有排序吗？

[hhzqf1980]

ding