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 的下拉项AddItem赋值的代码啊，你这段代码里面用到的是MSFlexGrid控件

Answer 2

这段代码没有添加combobox的操作，只是一段换页的操作，你能否把combobox添加项的代码粘上来，还是你忘了加combobox的项了？