如何修改vb combobox下拉列表中的内容
vb中的combobox下拉列表中的内容要在哪里修改啊?access数据库中的内容已经都修改过了,可是它怎么显示的还是原来数据库中的内容呢?初学vb,大菜鸟,请各位大虾仔...
vb中的combobox下拉列表中的内容要在哪里修改啊?
access数据库中的内容已经都修改过了,可是它怎么显示的还是原来数据库中的内容呢?
初学vb,大菜鸟,请各位大虾仔细讲解下!谢谢!!~ 展开
access数据库中的内容已经都修改过了,可是它怎么显示的还是原来数据库中的内容呢?
初学vb,大菜鸟,请各位大虾仔细讲解下!谢谢!!~ 展开
2个回答
展开全部
给你发以个我做的函数。你看下能不能理解。
com1.clear这个比较重要
Public Function InsertComboNa(ByVal Com1 As ComboBox, ByVal iCount As Integer)
Com1.Clear
Dim temp_Str As String
Dim temp_Rec As New ADODB.Recordset
temp_Str = "select * from 学院表 where 等级='1' and 属于='" & CStr(iCount + 1) & "'"
temp_Rec.CursorLocation = adUseClient
temp_Rec.Open temp_Str, Con, adOpenDynamic, adLockOptimistic, -1
If temp_Rec.RecordCount > 0 Then
temp_Rec.MoveFirst
Do While Not temp_Rec.EOF
Com1.AddItem temp_Rec!名称
temp_Rec.MoveNext
Loop
End If
Call Close_Rec(temp_Rec)
End Function
com1.clear这个比较重要
Public Function InsertComboNa(ByVal Com1 As ComboBox, ByVal iCount As Integer)
Com1.Clear
Dim temp_Str As String
Dim temp_Rec As New ADODB.Recordset
temp_Str = "select * from 学院表 where 等级='1' and 属于='" & CStr(iCount + 1) & "'"
temp_Rec.CursorLocation = adUseClient
temp_Rec.Open temp_Str, Con, adOpenDynamic, adLockOptimistic, -1
If temp_Rec.RecordCount > 0 Then
temp_Rec.MoveFirst
Do While Not temp_Rec.EOF
Com1.AddItem temp_Rec!名称
temp_Rec.MoveNext
Loop
End If
Call Close_Rec(temp_Rec)
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
贴代码上来看看
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询