procedure TForm1.DBListBox1Click(Sender: TObject);
begin
//dbedit1.Text :=adoquery1.FieldByName('name').asstring ;
//edit1.Text :=adoquery1.FieldByName('name').asstring ;
adoquery1.sql.add('select * from renyuanbiao where username='''+DBlistbox1.DataField +'''');
adoquery1.open; DBEdit1.text:= adoquery1.FieldByName('name').asstring ;end;单击后DBEdit1.text的内容无变化
并且dblist内的记录不管怎么点都跳到第一行,
begin
//dbedit1.Text :=adoquery1.FieldByName('name').asstring ;
//edit1.Text :=adoquery1.FieldByName('name').asstring ;
adoquery1.sql.add('select * from renyuanbiao where username='''+DBlistbox1.DataField +'''');
adoquery1.open; DBEdit1.text:= adoquery1.FieldByName('name').asstring ;end;单击后DBEdit1.text的内容无变化
并且dblist内的记录不管怎么点都跳到第一行,
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货