请教双击dbgrideh问题

Question

双击dbgrideh1记录如，显示详情，同时显示dbgrideh2的信息(当px表中t2值为hrm_emp中h2的值）
下面代码不知错在哪里，
好像sql2:='select * from px where t2:=ADOQuery1.Fields[2].AsString';这个有问题
procedure TForm2.DBGridEh1DblClick(Sender: TObject);
var
sql2:string;
begin
edit1.Text:=ADOQuery1.Fields[0].AsString;
edit2.Text:=ADOQuery1.Fields[1].AsString;
edit3.Text:=ADOQuery1.Fields[2].AsString;
edit4.Text:=ADOQuery1.Fields[3].AsString;
edit5.Text:=ADOQuery1.Fields[4].AsString;
edit6.Text:=ADOQuery1.Fields[5].AsString;
edit7.Text:=ADOQuery1.Fields[6].AsString;
edit8.Text:=ADOQuery1.Fields[7].AsString;
edit9.Text:=ADOQuery1.Fields[8].AsString;
edit10.Text:=ADOQuery1.Fields[9].AsString;
edit11.Text:=ADOQuery1.Fields[10].AsString;
edit12.Text:=ADOQuery1.Fields[11].AsString;
edit13.Text:=ADOQuery1.Fields[12].AsString;
edit14.Text:=ADOQuery1.Fields[13].AsString;
edit15.Text:=ADOQuery1.Fields[14].AsString;combobox1.Text:=ADOQuery1.Fields[15].AsString;
combobox2.Text:=ADOQuery1.Fields[16].AsString;
combobox3.Text:=ADOQuery1.Fields[17].AsString;
combobox4.Text:=ADOQuery1.Fields[18].AsString;
combobox5.Text:=ADOQuery1.Fields[19].AsString;
combobox6.Text:=ADOQuery1.Fields[20].AsString;
combobox7.Text:=ADOQuery1.Fields[21].AsString;
combobox8.Text:=ADOQuery1.Fields[22].AsString;
combobox9.Text:=ADOQuery1.Fields[23].AsString;
combobox10.Text:=ADOQuery1.Fields[24].AsString;
combobox11.Text:=ADOQuery1.Fields[25].AsString;
combobox12.Text:=ADOQuery1.Fields[26].AsString;
combobox13.Text:=ADOQuery1.Fields[27].AsString;
sql2:='select * from px where t2:=ADOQuery1.Fields[2].AsString';
  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add(sql2);
  adoquery2.Open;Panel5.Visible:=true;
end;

Answer 1

双击dbgrideh1记录如，显示详情，同时显示dbgrideh2的信息(当px表中t2值为hrm_emp中h2的值）
下面代码不知错在哪里，
好像sql2:='select * from px where t2:=ADOQuery1.Fields[2].AsString';这个有问题试试下面这种写法：
Sql2 := 'Select * From Px Where t2=' + QuotedStr(ADOQuery1.Fields[2].AsString);