Question

关于VB中的COMBOBOX！急急急！

我按照一个程序做了另外一个程序，其中有个COMBOBOX 我是直接复制粘贴过来的，程序也是，为什么就不能用了呢？
之前那个下拉的话就出现选择，我做的就什么都没有，是哪里出了问题呢？
程序如下：
Private Sub AlarmYt_Click()
Dim sql As String
Dim i As Integer

On Error Resume Next

If AlarmYt.ListIndex = -1 Then

MsgBox "请选择要查询的窑筒..."
Exit Sub

End If

sql = "select * from alam_tab where devnum='" & AlarmYt.ItemData(AlarmYt.ListIndex) & "' order by 日期 desc"

Rs.Open sql, DEn1.Conn, 3, 1
If Not Rs.EOF Then
Do While MSFG1.Rows > 2
MSFG1.RemoveItem MSFG1.Rows
Loop

Rs.PageSize = 20
intPages = Rs.PageCount

Rs.AbsolutePage = numPage

If numPage = 1 Then
Command30.Enabled = False
Command32.Enabled = False

Else
Command30.Enabled = True
Command32.Enabled = True
End If

If numPage = intPages Then
Command31.Enabled = False
Command33.Enabled = False

Else
Command31.Enabled = True
Command33.Enabled = True

End If

For i = 0 To Rs.PageSize

MSFG1.AddItem Rs!轴向坐标 & vbTab & Rs!周向坐标 & vbTab & Rs!温度 & vbTab & Rs!日期 & vbTab & Rs!备注
Rs.MoveNext
If Rs.EOF Then Exit For
Next i

Else
MsgBox "此设备无报警信息"
End If
Rs.Close
End Sub
我找到程序了 在MODLULE中
ServerAtime = Now
If ServerSet = "True" Then ServerStartUp = True

With Form13
For i = 0 To 5
.AlarmYt.AddItem i + 1 & " 号窑筒"
.AlarmYt.ItemData(i) = i
.HisYt.AddItem i + 1 & " 号窑筒"
.HisYt.ItemData(i) = i
Next
我的程序也有这些 但是为什么还是没有下拉呢？
ALARMYT和HISYT都没有下拉。。是没有和数据库连接上还是？

在线等高手！

Answer 1

这个简单，拖个combobox到窗体，在窗体load中加入一下代码，就ok了
Combo1.Text = "请选择……"
For i = 0 To 5
Combo1.AddItem "name" + CStr(i), i
Next i

如果要从数据库中读取，就下面代码
Public Sub myAddGroup()
Combo1.Clear
Set db2 = OpenDatabase(App.Path + "\sysdb\数据库名.mdb")
Set rs2 = db2.OpenRecordset("select * from alam_tab where devnum='" & AlarmYt.ItemData(AlarmYt.ListIndex) & "' order by 日期 desc")
If rs2.RecordCount > 0 Then
Do While Not rs2.EOF
Combo1.AddItem rs2!Name
rs2.MoveNext
Loop
End If
rs2.Close
db2.Close
End Sub

Answer 2

combobox是列表框，你需要添加成员，属性框里有一个“list”是用来添加成员的，ctrl+enter是换行，去看看吧！！

Answer 3

你用的是不是迷你版的VB？有些功能是不全的。。。。。。。
如果楼上那些的方法都不行，那建议你去载个完整的再来尝试。。。。。。

我现在电脑上没有vb所以没法尝试，但以前在学的时候，有许多的属性设置写在代码框中定义是没有用的，一定要在右边的属性框里设置才能有效，拷贝别人程序却失效的许多原因就是如此。

Answer 4

找所有的代码,搜索

AlarmYt.AddItem

这是给combo添加项目的代码,找到,看看人家怎么添加的
在你需要的地方添加就行了

======================
With Form13
你有form13吗?
它只是对form13的那个combolist操作
你如果没有form13,就把form13改成你combo在的那个form

Answer 5

首先将combobox的list属性设置成你需要的内容，一行表示一个选项，多行这需要输入：
网易
新浪
雅虎
其中，按住ctrl+回车是换行，直接回车这结束输入。
然后在按钮那写代码，类似二楼的即可：
private
sub
command1_click()
select
case
combo1.listindex
'最好用索引比较，用字符串有时候比较容易出错，比如多个空格之类的
case
0:
shell
"explorer
http://www.163.com"
case
1:
shell
"explorer
http://www.sina.com"
case
2:
shell
"explorer
http://www.yahoo.com"
end
select
end
sub