一个简单问题，在线等吧

Question

st:='select ccuscode as 编码,ccusname as 客户名称 ';
  st:=st+'from Customer ';
  Aq:=tadoquery.Create(self);
  with Aq do
  begin
    connectionstring:=dm.Adocon.ConnectionString;
    close;
    sql.Text:=st;
    open;
　end;为什么Fields.Fields[i].FieldName;还是显示ccuscode,ccusname
而不是“编码与客房名称”呢？怎样才能显示AS后的中文

Answer 1

Fields[0].DisplayLabel := '编码';

Answer 2

是不是手动添加了DBGrid的Columns?

Answer 3

没有，我直接取值to stringgrid.cells[]

Answer 4

没关系的你直接写别名就可以
你这样试一下
with Aq do
  begin
    connectionstring:=dm.Adocon.ConnectionString;
    close;
    sql.Text:='select ccuscode as 编码,ccusname as 客户名称 from Customer ';
  
    open;
　end;

Answer 5

楼上你没弄懂偶的意思我要把别名读出来Fields[i].DisplayLabel后还是读的字段名