错在哪里了？为什么提示“应用程序在当前操作中使用了错误类型的值”？

[wangcw791219]

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select * From 进货信息历史表 where '+ComboBox3.Items[ComboBox3.ItemIndex]+' Like :A');
ADOQuery2.Parameters.ParamByName('A').Value :=Edit1.Text+'%';
ADOQuery2.Open;

[梅青松]

ADOQuery2.Parameters.ParamByName('A').Value := '''' + Edit1.Text+'%'''';

[梅青松]

ADOQuery2.Parameters.ParamByName('A').Value := '''' + Edit1.Text+ '%' + '''';

[梅青松]

或者
ADOQuery2.Parameters.ParamByName('A').Value := '''' + Edit1.Text+ '%'' ';

[手指风]

同意,up!

[wangcw791219]

上位，我试过不行的。

[梅青松]

第一个些错了
试下面两个

[wangcw791219]

再写一次


if (ComboBox3.Items[ComboBox3.ItemIndex]='单据编号') or (ComboBox3.Items[ComboBox3.ItemIndex]='商品编号') or (ComboBox3.Items[ComboBox3.ItemIndex]='数量')
or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库编号') then
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('Select * From 进货信息历史表 where '+ComboBox3.Items[ComboBox3.ItemIndex]+' Like :A');
ADOQuery2.Parameters.ParamByName('A').Value :=quotedstr(Edit1.Text)+'%';
ADOQuery2.Open;

[wangcw791219]

单据编号、商品编号、数量是数字类型，问题就出现在数据类型转化上。

ADOQuery2.Parameters.ParamByName('A').Value :=Edit1.Text+'%';
等号左边是数字型，等号右边该怎样写？

[ztenv]

ADOQuery2.Parameters.ParamByName('A').Value :=quotedstr(Edit1.Text)+'%';//改为：
ADOQuery2.Parameters.ParamByName('A').Value :=quotedstr(Edit1.Text+'%')