麻烦大家进来看看下面的代码，有错误，望指教修改

[see14123]

CASE combobox1.text of
'defect_kind':
begin
adoquery2.Close;
adoquery2.sql.clear;
adoquery2.sql.text:='select defect_kind_value from defect_kind';
adoquery2.Open;
with adoquery2 do
begin
while not eof do
begin
listview1.Items.AddItem(fieldbyname('defect_kind_value'));
next;
end;
end;
end;



提示给出错误如下：
1.ordinal type required
2.incompatible types:'TListItem'and 'TField'

[judicainiao]

1.同意 miky(miky) ，case 要用序数类型，我以为
2.或把listview1.Items.AddItem(fieldbyname('defect_kind_value'));
改成：listview1.Items.Add(Fieldbyname('defect_kind_value').AsString);

• 打赏
• 举报

回复 赞

[nice0934]

case不能用字符串的,
把combobox1.text 改成combobox.ItemIndex或者用
IF else

• 打赏
• 举报

回复 赞

[andy81391394]

case 中的判断表达式的值必须是有序类型，楼主不妨试试 nice0934的方法。

• 打赏
• 举报

回复 赞

[miky]

1.CASE combobox1.text of
'defect_kind':


改成 if combobox1.text = 'defect_kind' then
//Case不能用字符串


2。把listview1.Items.AddItem(fieldbyname('defect_kind_value'));
改成ListItem := listview1.Items.Add;
ListItem.Caption := fieldbyname('defect_kind_value').asString;

• 打赏
• 举报

回复 赞

[mynameisking]

case不能用字符串的,
把combobox1.text 改成combobox.ItemIndex

• 打赏
• 举报

回复 赞