在ListBox 中显示两列数据,一列是使用状态,一列是数据库中读取的数据,我想问下,有没有实现的方法,我查了好久,都没发现这方面的问题,其他的空间能实现这个功能,我只想用Listbox
代码是这样的
Dim rstemp As New ADODB.Recordset
Dim SqlStr As String
lstUfreeport.clear
lvwUSelectPort.ListItems.clear
SqlStr = "select ID,CODE from JR_SWITCH_EQUIP_CODE where SW_ID='" & cboVSwitch.ItemData(cboVSwitch.ListIndex) & "' and onuportid is null "
SqlStr = SqlStr + " order by TO_NUMBER(CODETONUM(CODE))"
rstemp.Open SqlStr, g_ADOConn, 3, 3
Do While Not rstemp.EOF
lstUfreeport.AddItem rstemp.Fields("CODE").value
lstUfreeport.ItemData(lstUfreeport.NewIndex) = rstemp.Fields("ID").value
rstemp.MoveNext
Loop
rstemp.Close
Set rstemp = Nothing
代码是这样的
Dim rstemp As New ADODB.Recordset
Dim SqlStr As String
lstUfreeport.clear
lvwUSelectPort.ListItems.clear
SqlStr = "select ID,CODE from JR_SWITCH_EQUIP_CODE where SW_ID='" & cboVSwitch.ItemData(cboVSwitch.ListIndex) & "' and onuportid is null "
SqlStr = SqlStr + " order by TO_NUMBER(CODETONUM(CODE))"
rstemp.Open SqlStr, g_ADOConn, 3, 3
Do While Not rstemp.EOF
lstUfreeport.AddItem rstemp.Fields("CODE").value
lstUfreeport.ItemData(lstUfreeport.NewIndex) = rstemp.Fields("ID").value
rstemp.MoveNext
Loop
rstemp.Close
Set rstemp = Nothing
解决方案 »
- vb写文件,怎么能是文件用utf-8写入
- 求助:VB导出至Excel打印 提示 对象变量或with变量未设置 谢谢谢谢谢谢谢谢谢谢谢谢
- 程序打包后,在别的电脑里窗体怎么才显示不到全屏?高手请来
- 急求可以直接在ASP里调用的VB资源管理器控件,在线等!
- 关于数组定义的菜鸟问题
- vb richtextbox中 替换的代码怎么写
- 求北京交大,中央民族大学,北京理工大学,中央财经大学的VB高手
- 以窗口中心计算,鼠标在窗口任意位置到中心点的绝对距离(半径)怎算?
- ★★关于汉字矢量路径问题!谁能解决,给300分!决不食言!★★
- 这条sql怎么写?
- 如何把外部的excel表中记录复制到vb控件datagrid中
- 菜鸟问题,还望高手解答
Select Case List1.ListIndex
Case 0
Label2.Caption = "华而不实,焉能折桂?"
Case 1
Label2.Caption = "豪华阵容,时运不佳"
Case 2
Label2.Caption = "关键时刻腿软"
Case 3
Label2.Caption = "德国战车破旧不堪"
Case 4
Label2.Caption = "拉丁艺术仅供欣赏"
Case 5
Label2.Caption = "阴沟里翻船,不慎!"
Case 6
Label2.Caption = "现代足球不能靠防守度日"
Case 7
Label2.Caption = "难成大器!"
Case 8
Label2.Caption = "恭喜你,答对了!"
End SelectEnd Sub点击事件,触发查询数据库并显示在LISTBOX2中 就行了
Private Sub Form_Load()
List1.AddItem "ab" & vbTab & "cd"
End Sub
Private Sub Form_Load()
List1.AddItem "ab" & vbTab & "cd"
End Sub另外记得对象+属性