方法 描述
addItems() 从列表中添加下拉正游选项
Clear() 删除下拉选项集合中的所有选项
count() 返回下拉选项集做清歼合中的数目
currentText() 返回选中选项的文本
itemText(i) 获取索引为i的item的选项文本
currentIndex() 返回选中项的纯冲索引
setItemText(int index,text) 改变序列号为index的文本
添加内容到combox中:dim con as new adodb.connection
dim rs as new adodb.recordset
private sub form_load()'在窗体加载事件中,设置两个文本框内容为空,
B.text="" '设置文本框B内容为空
C.text="" '设置文本困灶框C内容为空
打开数据库汪胡扮连接
con.open "Provider=Microsoft.Jet.OLEDB.4.0data source=参数.mdbpersist security info=false"
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸"做辩,con,1,3
if rs.eof=false and rs.bof=false then
rs.movefirst
while not rs.eof
combox.additem.rs.fields("A")'添加内容到combox中
rs.movenext
wend
end if
end sub
private combox_click()
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸 where A='" &combox.text &"'",con,1,3
if rs.eof=false and rs.bof=false then
B.text=rs.fields("B") '将查找到的内容分别赋给文本框B、C
C.text=rs.fields("C")
end if
end sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)