goodsrs.movefirst
list1.clear
do until goodsrs.eof
  list1.additem goodsrs.fields(...)  goodsrs.movenext
loop以上用的是ListBox
假如是DBList,请绑定DataSource,DataMember,DataField
而且只能显示一个字段的内容假如要显示多字段的内容,请用
MSHFlexGrid,DBGRID等等控件