啊，我是个菜鸟，这些哪懂啊，郁闷啊，又有一个问题

Question

啊，我是个菜鸟，这些哪懂啊，郁闷啊，又有一个问题 delhpi中用BDGRID显示数据库内容的时候，想实现鼠标点击字段名就可以直接对这个字段进行排序， 
我抄了下面的代码 
procedure TForm3.DBGrid1TitleClick(Column: TColumn); 
var 
x:integer; 
thefield:string; begin 
x:=column.index; 
thefield:=query1.Fields[x].fieldname; 
with query1 do begin 
active:=false; 
sql.clear; 
sql.Add('select * form gongzixitong order by'+thefield); 
active:=true; 
end; 
end; 
可是运行后，他出现这样的错误： 
project mdiapp.exe raise exception class elisterror with message 'list index out of bounds(2)'.process stopped, use step or run to continue 请教是什么问题？

Answer 1

list index out of bounds(2)
与数据表中的字段没有对应

Answer 2

Have a try:thefield:=query1.Fields[x - 1].fieldname; 
the list index of DBGrid is overflowed.

Answer 3

begin 
  try
    IntIdx := Column.Index;
    StrOrder := Query1.Fields[IntIdx].Fieldname;
    with Query1 do
    begin
      Active := False;
      SQL.clear;
      SQL.Add('SELECT * FROM tYourTable ORDER BY ' + StrOrder);
      active := True;
    end;
  except
  end;
end;If you do not have "try...except...end",please make sure that you have OPENED the Query before you click the title !! Then the error will never raise: 'list index out of bounds(2)'

Answer 4

var cname:string;
begin
cname:=column.FieldName;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from test1 order by '+cname);
adoquery1.Open;
end;
我试过了，可以的，try
我只会瞎说

Answer 5

我是用borland desktop 建立的数据库 adoquery不是微软的么，可以用么？

Answer 6

你跟踪一下程序，看看生成的sql 语句是不是符合你的要求，另外，在DBGrid 里面指定字段了没有。
试试在sql 语句中显式指定字段名
select field1, field2... from table ...