query中的嵌套查询

Question

selectsql := 'select bargainname,modifyname,signatory,relaionunit,correlationunit,idea,state,statrdate,enddate,content,signaturedepartment,signaturetime from tabmodify where bargainname in (select top 1 bargainname from tabbargain where tabbargain.bargaincode=tabmodify.bargaincode) and ' + mysql
//不是很清楚你的原意，但你那样写肯定是不行的。

Answer 1

with Query1 do
  begin
    close;
    sql.Clear ;
    selectsql:='select  bargainname=(select top 1 bargainname from tabbargain where tabbargain.bargaincode=tabmodify.bargaincode),modifyname,signatory,relationunit'
    +' correlationunit,idea,state,statrdate,enddate'//这里开始那里要加空格分开阿！！
    +' content,signaturedepartment,signaturetime'//这里开始那里要加空格分开阿！！
    +' from tabmodify where '+mysql;//调用mysql得到选择的条件//这里开始那里要加空格分开阿！！
    sql.text:=selectsql;
    open;

Answer 2

with Query1 do
  begin
    close;
    sql.Clear ;
    selectsql:='select  bargainname=(select top 1 bargainname from tabbargain where tabbargain.bargaincode=tabmodify.bargaincode),modifyname,signatory,relationunit,'//这里最后还要增加一个逗号
    +' correlationunit,idea,state,statrdate,enddate,'//这里开始那里要加空格分开阿！！最后还要增加一个逗号
    +' content,signaturedepartment,signaturetime'//这里开始那里要加空格分开阿！！
    +' from tabmodify where '+mysql;//调用mysql得到选择的条件//这里开始那里要加空格分开阿！！
    sql.text:=selectsql;
    open;   

Answer 3

to :tikkypeng(千两狂死郎)　
按你所说的改来了，
但还是有错误
提示说是select附近语法有错
是不是query有能同时连两个表呢
如下
select top 1 bargainname from tabbargain where tabbargain.bargaincode=tabmodify.bargaincode

Answer 4

select top 1 bargainname from tabbargain where tabbargain.bargaincode　In (Select bargaincode From tabmodify)

Answer 5

select top 1 bargainname from tabbargain where bargaincode　In (Select bargaincode From tabmodify) 

Answer 6

close;
    sql.Clear ;
    selectsql:='select bargainname=select top 1 bargainname from tabbargain where bargaincode in (select bargaincode from tabbargain), modifyname,signatory,relationunit,'
    +' correlationunit,idea,state,startdate,enddate,'
    +' content,signaturedepartment,signaturetime'
    +' from tabmodify where '+mysql;//调用mysql得到选择的条件
    sql.text:=selectsql;
    open;
还是不对
以上中的字段如下
bargainname在表tabbargain，其它的都在tabmodify中
我的原意是想把查出来的tabmodify的所有字段现加上其对应的tabbargain中的tabbargain中
bargainname查出来并在dbrgid中显示
两表以bargaincode

Answer 7

close;
    sql.Clear ;
    selectsql:='select (select top 1 bargainname from tabbargain where bargaincode=tabmodify.bargaincode) as aaaaa, modifyname,signatory,relationunit,'
    +' correlationunit,idea,state,startdate,enddate,'
    +' content,signaturedepartment,signaturetime'
    +' from tabmodify where '+mysql;//调用mysql得到选择的条件
    sql.text:=selectsql;
    open;

Answer 8

close;
    sql.Clear ;
    selectsql:='select bargainname=(select top 1 bargainname from tabbargain where bargaincode in (select bargaincode from tabbargain)), modifyname,signatory,relationunit,'
    +' correlationunit,idea,state,startdate,enddate,'
    +' content,signaturedepartment,signaturetime'
    +' from tabmodify where '+mysql;//调用mysql得到选择的条件
    sql.text:=selectsql;
    open;
在select top 1处加了()就ok了
呵呵，谢谢千两狂死郎

Answer 9

加入：
close;
    sql.Clear ;
    selectsql:='select bargainname=(select top 1 bargainname from tabbargain where bargaincode in (select bargaincode from tabbargain)), modifyname,signatory,relationunit,'
    +' correlationunit,idea,state,startdate,enddate,'
    +' content,signaturedepartment,signaturetime'
    +' from tabmodify where '+mysql;//调用mysql得到选择的条件
    sql.text:=selectsql;
    open;