请大虾帮我看看错在哪？

Question

procedure TForm1.TabSheet2Show(Sender: TObject);
var
  i:integer;
begin
  datamodule2.assemble.Active:=true;
  combobox1.Items.Clear;
  with datamodule2.assequery1 do
  begin
    sql.Clear;
    sql.Add('select distinct OrderNo from product where flag="no"');
    open;
    first;
    for i:=0 to recordcount-1 do
    begin
      combobox1.Items.Add(fieldbyname('OrderNo').AsString);
      next;
    end;
    close;
  end;
end;
编译到first；时出现错误："Data type mismatch in criteria expression"，怎么解决？谢谢！

Answer 1

你把datamodule2.assemble.Active:=true; 屏蔽掉試一下

Answer 2

'select distinct OrderNo from product where flag="no"'no"'
改为'select distinct OrderNo from product where flag = '+ QuotedStr('no');
试试看看

Answer 3

你的flag是什么类型的?
sql.Add('select distinct OrderNo from product where flag=0');

Answer 4

问题解决了， coffeenight(留恋咖啡)是正确的，但是如何结帖我不会，有谁能告诉我？