两个query查询结果交换值出错，我的这个代码错在何处？
两个query查询结果交换值出错，我的这个代码错在何处？
procedure TForm1.TreeView1Click(Sender: TObject);
begin
Edit1.Text:=treeview1.Selected.Text;
StatusBar1.Panels[1].Text:=Edit1.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select lev from unit where name like''' +treeview1.Selected.Text+'''');
ADOQuery1.Open;
ADOQuery1.First;
Edit2.Text:=ADOQuery1.FieldValues['lev'].AsString;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select 姓名 from ry where lev =''' +Edit2.Text+'''');
ADOQuery2.Open;
end;
end.
问题点数：0、回复次数：5Top
1 楼delphimo（(误入歧途)）回复于 2003-06-03 19:49:21 得分 0
那里错，报什么错？Top
2 楼alisgool（小角色）回复于 2003-06-03 19:53:18 得分 0
这行里的
select lev from unit where name like''' +treeview1.Selected.Text+''''
like匹配怎么没有通配符呢检查一下ADOQuery1.FieldValues['lev'].AsString;这句的返回值是否为nullTop
3 楼henry2003（阿波）回复于 2003-06-03 19:54:34 得分 0
這個寫法有問題:
Edit2.Text:=ADOQuery1.FieldValues['lev'].AsString;
真確的應該是:
Edit2.Text:=ADOQuery1.FieldValues['lev'];
Top
4 楼xdf_hubei（向太傅）回复于 2003-06-03 21:09:14 得分 0
加个isnull试试看Top
5 楼ihihonline（潇潇->戒烟）回复于 2003-06-04 08:16:26 得分 0
procedure TForm1.TreeView1Click(Sender: TObject);
begin
Edit1.Text:=treeview1.Selected.Text;
StatusBar1.Panels[1].Text:=Edit1.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select lev from unit where name like''' +treeview1.Selected.Text+'''');
ADOQuery1.Open;
if ADOQuery1.RecordCount <> 0 then
begin
ADOQuery1.First;
Edit2.Text:=ADOQuery1.FieldValues['lev'].AsString;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select 姓名 from ry where lev =''' +Edit2.Text+'''');
ADOQuery2.Open;
end;
end;
end.
----------------
沉沦中..........
Top
