SQLSTR :string;
begin
SQLSTR:=StringGrid1.Cells[Acol,arow];
adoquery1.Connection:=mian_from.TestAdo;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.add(' select * from qkb where dwbh= +''''SQLSTR'''' or
dwmc=+''''SQLSTR''''' );
begin
SQLSTR:=StringGrid1.Cells[Acol,arow];
adoquery1.Connection:=mian_from.TestAdo;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.add(' select * from qkb where dwbh= +''''SQLSTR'''' or
dwmc=+''''SQLSTR''''' );
adoquery1.sql.add(' select * from qkb where dwbh='+ ''''+ZSQLSTR+''''+' or
dwmc='+''''+SQLSTR+''''' );
--------------------------------------------------------------------
看尽悲伤,庸人自扰不平事。叹尽荒凉,海阔天空谁人知。狂风劲兮,百花飘
扬乱舞香。捏花一笑,海不扬波断肠心!
广告:http://delphicode.yeah.net
dwmc='''+SQLSTR+'''' );