请教:从sql server2000查询出来的记录集rs,怎么才能显示在组合框combo1里? 请教! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 While Not rs.EOFCombo1.AddItem rs.Fields(0)rs.MoveNextWend 谢谢大侠的答复!还有个小问题请教:怎么引用combo1上显示的第一条、第n条、最后一条记录?请教请教!谢谢先! Private Sub Form_Load () Combo1.AddItem "Denver Sandwich" ' 对列表添加项。 Combo1.AddItem "Reuben Sandwich" Combo1.AddItem "Turkey Sandwich" Combo1.Text = Combo1.List(2) ' 显示列表中的第三项。 text1.text=combol1.textEnd Sub while not rs.eof xxxstring=" " for i=0 to rs.fields xxxstring=xxxstring+" "+cstr(rs(i).value) next combo1.additem xxxstring rs.movenextwend picture控件move方法什么意思? 请问这个控件怎么用?急~~! 简单租书管理系统 Windows Shell:求“网上邻居”或“文件夹共享”的工作原理。 怎样解决弹出菜单弹不出来的问题? 存储过程中有select查询语句怎么显示?急 如何在程序里面设置 datareport里面Rptlabel的字体? vsflexgrid控件的输入法问题 知道String(256, Chr(0)这条语句是干什么用的吗? 请帮我看着段程序,谢谢。(是关于组合查询的) 谁知道有VB学习的网站? ftp客户端上传模块问题
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Wend
Combo1.AddItem "Denver Sandwich" ' 对列表添加项。
Combo1.AddItem "Reuben Sandwich"
Combo1.AddItem "Turkey Sandwich"
Combo1.Text = Combo1.List(2) ' 显示列表中的第三项。
text1.text=combol1.text
End Sub
while not rs.eof
xxxstring=" "
for i=0 to rs.fields
xxxstring=xxxstring+" "+cstr(rs(i).value)
next
combo1.additem xxxstring
rs.movenext
wend