关于VB中的COMBOBOX!急急急!
我按照一个程序做了另外一个程序,其中有个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都没有下拉。。是没有和数据库连接上还是?
在线等高手! 展开
之前那个下拉的话就出现选择,我做的就什么都没有,是哪里出了问题呢?
程序如下:
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都没有下拉。。是没有和数据库连接上还是?
在线等高手! 展开
7个回答
展开全部
这个简单,拖个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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
combobox是列表框,你需要添加成员,属性框里有一个“list”是用来添加成员的,ctrl+enter是换行,去看看吧!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你用的是不是迷你版的VB?有些功能是不全的。。。。。。。
如果楼上那些的方法都不行,那建议你去载个完整的再来尝试。。。。。。
我现在电脑上没有vb所以没法尝试,但以前在学的时候,有许多的属性设置写在代码框中定义是没有用的,一定要在右边的属性框里设置才能有效,拷贝别人程序却失效的许多原因就是如此。
如果楼上那些的方法都不行,那建议你去载个完整的再来尝试。。。。。。
我现在电脑上没有vb所以没法尝试,但以前在学的时候,有许多的属性设置写在代码框中定义是没有用的,一定要在右边的属性框里设置才能有效,拷贝别人程序却失效的许多原因就是如此。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
找所有的代码,搜索
AlarmYt.AddItem
这是给combo添加项目的代码,找到,看看人家怎么添加的
在你需要的地方添加就行了
======================
With Form13
你有form13吗?
它只是对form13的那个combolist操作
你如果没有form13,就把form13改成你combo在的那个form
AlarmYt.AddItem
这是给combo添加项目的代码,找到,看看人家怎么添加的
在你需要的地方添加就行了
======================
With Form13
你有form13吗?
它只是对form13的那个combolist操作
你如果没有form13,就把form13改成你combo在的那个form
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
首先将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
网易
新浪
雅虎
其中,按住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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询