[code delphi]
procedure TfrmMG_Edit.DBComboBox4Click(Sender: TObject);
var
sqlStr:string;
begin //列出所有客户
if dbcombobox4.ItemIndex>=0 then
begin
sqlStr:='select * from SubBase where TP=' stringlist1.strings[DBcombobox4.itemindex];
adoquery1.SQL.Clear;
adoquery1.SQL.Text:=sqlStr;
adoquery1.Open;
stringlist2.Clear;
DBcombobox3.Clear;
while not adoquery1.Eof do
begin
DBcombobox3.Items.Append(trim(adoquery1.fieldbyname('Title').AsString));
stringlist2.add(adoquery1.fieldbyname('ID').asstring);
adoquery1.Next;
end;
if trim(kf.Caption)<>'' then
dbcombobox3.ItemIndex:=dbcombobox3.Items.IndexOf(trim(kf.Caption));
end;
[/code]

为什么这段我在Winxp 里面没问题，在98里却提示非法操作，关闭程序？

------
交流.學習