在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

解决方案 »

  1.   

    Private Sub List1_Click()
    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中 就行了
      

  2.   

    楼主是要弄个制表位吧:
    Private Sub Form_Load()
        List1.AddItem "ab" & vbTab & "cd"
    End Sub
      

  3.   

    listbox 中显示两列,一列显示是否占用,一列显示我数据库中查到的数据,  是否占用的那一列 由我自己判断,只要能显示出两列就行 ,不用 columns, 用ListView很好实现,现在用listbox 有没有实现的可能,具体怎么实现
      

  4.   

    VB code
    Private Sub Form_Load()
    List1.AddItem "ab" & vbTab & "cd"
    End Sub另外记得对象+属性