自己想做一个简单的本地选课数据库，代码中出现问题，求解

Question

本帖最后由 wangxn_007 于 2011-07-04 19:20:17 编辑

Answer 1

如果将list5部分代码改为如下，则程序运行成功。继续请教大家上面的错误在哪里，谢谢with Query7 do
        begin
          Close;
          SQL.Text := 'select cname from sc where sname=:xm' ;
          query7.Params[0].asstring:=abc;
          Open;
          query7.first;
          while   not   query7.eof   do
          begin
            listbox5.items.add(FieldByName('cname').AsString);
            query7.next;
          end;        end;

Answer 2

listbox5.items.add(FieldByName('cname').AsString);
加上 query7.listbox5.items.add(query7.FieldByName('cname').AsString);