with qry1 do begin close; sql.clear; SQL.Add(sql); open; end;在with qry1 do内, Delphi无法区分sql.clear; SQL; (sql) 都视它们为相同,即qry1.sql此题应该将 sql: string 换另一个字,比如 sqlstr 之类,即可。
遍历重名冲突了 procedure TForm1.FormCreate(Sender: TObject); var asql: string; begin asql := 'select id as 编号,lbid as 类别,spmc as 商品名称,dw as 单位,ys as 颜色,jj as 进价,sj as 售价,cm as 尺码,tm as 条形码 from spxx where id like ''%' + trim(edt1.Text) + '%'' or spmc like ''%' + trim(edt1.Text) + '%'''; with qry1 do begin close; sql.clear; sql.Add(asql); open; end; end;
begin
close;
sql.clear;
SQL.Add(sql);
open;
end;在with qry1 do内,
Delphi无法区分sql.clear; SQL; (sql)
都视它们为相同,即qry1.sql此题应该将 sql: string 换另一个字,比如 sqlstr 之类,即可。
procedure TForm1.FormCreate(Sender: TObject);
var
asql: string;
begin
asql := 'select id as 编号,lbid as 类别,spmc as 商品名称,dw as 单位,ys as 颜色,jj as 进价,sj as 售价,cm as 尺码,tm as 条形码 from spxx where id like ''%' + trim(edt1.Text) +
'%'' or spmc like ''%' + trim(edt1.Text) + '%''';
with qry1 do
begin
close;
sql.clear;
sql.Add(asql);
open;
end;
end;