程序如下:
...
...
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='select * from 应收款 where 状态='未收' order by 客户编号';
ADOQuery2.Open;
...
...
...
//.....将DBGrid3中数据倒到文本框中.....
procedure Tyfkguanli.DBGrid3CellClick(Column: TColumn);
begin
ADOTable1.Refresh;
edit1.Text:=DBGrid3.Fields[0].AsString;
edit2.Text:=DBGrid3.Fields[1].AsString;
edit3.Text:=DBGrid3.Fields[2].AsString;
edit4.Text:=DBGrid3.Fields[3].AsString;
edit5.Text:=DBGrid3.Fields[4].AsString;
edit6.Text:=DBGrid3.Fields[5].AsString;
edit7.Text:=DBGrid3.Fields[6].AsString;
edit8.Text:=DBGrid3.Fields[7].AsString;
edit9.Text:=DBGrid3.Fields[8].AsString;
edit10.Text:=DBGrid3.Fields[9].AsString;
edit11.Text:=DBGrid3.Fields[10].AsString;
edit12.Text:=DBGrid3.Fields[11].AsString;
edit13.Text:=DBGrid3.Fields[12].AsString;
ComboBox1.Text:=DBGrid3.Fields[13].AsString;
edit14.Text:=DBGrid3.Fields[14].AsString;
end;出错信息如下:
[Error] Uyskguanli.pas(109): Illegal character in input file: '未' ($CEB4)
[Error] Uyskguanli.pas(136): Illegal character in input file: '未' ($CEB4)
[Error] Uyskguanli.pas(162): ';' expected but '.' found
[Error] Uyskguanli.pas(164): Undeclared identifier: 'ADOTable1'
[Error] Uyskguanli.pas(165): Undeclared identifier: 'edit1'
[Error] Uyskguanli.pas(165): Missing operator or semicolon
[Error] Uyskguanli.pas(165): Missing operator or semicolon
[Error] Uyskguanli.pas(166): Undeclared identifier: 'edit2'
[Error] Uyskguanli.pas(166): Missing operator or semicolon
[Error] Uyskguanli.pas(166): Missing operator or semicolon
[Error] Uyskguanli.pas(167): Undeclared identifier: 'edit3'
[Error] Uyskguanli.pas(167): Missing operator or semicolon
[Error] Uyskguanli.pas(167): Missing operator or semicolon
[Error] Uyskguanli.pas(168): Undeclared identifier: 'edit4'
[Error] Uyskguanli.pas(168): Missing operator or semicolon
[Error] Uyskguanli.pas(168): Missing operator or semicolon
[Error] Uyskguanli.pas(169): Undeclared identifier: 'edit5'
[Error] Uyskguanli.pas(169): Missing operator or semicolon
[Error] Uyskguanli.pas(169): Missing operator or semicolon
[Error] Uyskguanli.pas(170): Undeclared identifier: 'edit6'
[Error] Uyskguanli.pas(170): Missing operator or semicolon
[Error] Uyskguanli.pas(170): Missing operator or semicolon
[Error] Uyskguanli.pas(171): Undeclared identifier: 'edit7'
[Error] Uyskguanli.pas(171): Missing operator or semicolon
[Error] Uyskguanli.pas(171): Missing operator or semicolon
[Error] Uyskguanli.pas(172): Undeclared identifier: 'edit8'
[Error] Uyskguanli.pas(172): Missing operator or semicolon
[Error] Uyskguanli.pas(172): Missing operator or semicolon
[Error] Uyskguanli.pas(173): Undeclared identifier: 'edit9'
[Error] Uyskguanli.pas(173): Missing operator or semicolon
[Error] Uyskguanli.pas(173): Missing operator or semicolon
[Error] Uyskguanli.pas(174): Undeclared identifier: 'edit10'
[Error] Uyskguanli.pas(174): '(' expected but ':=' found
[Error] Uyskguanli.pas(174): Missing operator or semicolon
[Error] Uyskguanli.pas(175): Undeclared identifier: 'edit11'
[Error] Uyskguanli.pas(175): '(' expected but ':=' found
[Error] Uyskguanli.pas(175): Missing operator or semicolon
[Error] Uyskguanli.pas(176): Undeclared identifier: 'edit12'
[Error] Uyskguanli.pas(176): '(' expected but ':=' found
[Error] Uyskguanli.pas(176): Missing operator or semicolon
[Error] Uyskguanli.pas(177): Undeclared identifier: 'edit13'
[Error] Uyskguanli.pas(177): '(' expected but ':=' found
[Error] Uyskguanli.pas(177): Missing operator or semicolon
[Error] Uyskguanli.pas(178): Undeclared identifier: 'ComboBox1'
[Error] Uyskguanli.pas(178): '(' expected but ':=' found
[Error] Uyskguanli.pas(178): Missing operator or semicolon
[Error] Uyskguanli.pas(179): Undeclared identifier: 'edit14'
[Error] Uyskguanli.pas(179): '(' expected but ':=' found

解决方案 »

  1.   

    ADOQuery2.SQL.Text:='select * from 应收款 where 状态=''未收'' order by 客户编号';
      

  2.   

    怎么这么多找不到控件声明,你是不是删除了什么东西啊?建议你重新开个Form然后再将控件一个个放进去.
      

  3.   

    newfang(传说中的MIC):
    你的方法是对的,我刚学编程,谢谢拉。
      

  4.   

    我是将这些控件放到一个PANEL中的
      

  5.   

    ADOQuery2.SQL.Text:='select * from 应收款 where 状态=''未收'' order by 客户编号';
    //                                                   ~~~~~~~~
    单引号嵌套的时候,两个表示一个
      

  6.   

    这个问题已经解决了,是我将下面的一条语句搞错了:
    procedure Tyfkguanli.DBGrid3CellClick(Column: TColumn);