怎么把列表框当作一个表来操作

雨农

列表框的功能大家都知道.现在在开发一个工程,因为是网络多用户使用并且数据库是放在香港的一个服务上.所以尽量少让用户频频访问数据库为好.把数据一次性地放在一个列表框中当成一个临时表来用是一个很好的办法.

问题1:怎么把绑上查询/表的列表框当做一个表来进行数据的读取:

答:citem=0'自己定义,也可以用变量

me.listbox1.setfocus

me.listbox1.selected(citem)=true

me.text1=me.listbox1.column(0)

   me.text2=me.listbox1.column(2)

......基本完成了对列表框数据的读取

问题2:怎么把绑上查询/表的列表框当做一个表来进行数据的查询,比如怎么用

sql="select * from listbox.recordset where id="&IDC

Set rs=currentdb().openrecordset(sql)'此用法是行不通的.我试过.这里只是说明要像这样子用.请高手指明

请下载例子帮忙完成.

andymark

你是不是要这样的效果

雨农

Private Sub Command4_Click()

For i = 0 To Me.v_co_list.ListCount - 1
If Me.v_co_list.ItemData(i) = Me.v_index Then
    Me.v_co_list.Selected(i) = True
    Me.v_item = i
  End If
Next
End Sub

没想到你用这个方法解决了.但并不是我想要的.我的目的是把列表框的recordset当作一个集合来处理

雨农

好.再来完善这个贴

整理出来

雨农

列表框的功能大家都知道.现在在开发一个工程,因为是网络多用户使用并且数据库是放在香港的一个服务上.所以尽量少让用户频频访问数据库为好.把数据一次性地放在一个列表框中当成一个临时表来用是一个很好的办法.

问题1:怎么把绑上查询/表的列表框当做一个表来进行数据的读取:

答:citem=0'自己定义,也可以用变量

me.listbox1.setfocus

me.listbox1.selected(citem)=true

me.text1=me.listbox1.column(0)

   me.text2=me.listbox1.column(2)

......基本完成了对列表框数据的读取



问题2:怎么把绑上查询/表的列表框当做一个表来进行数据的查询,

大体有如下方法代替这一问题..如有更新请补充

For i = 0 To listbox1.ListCount - 1
If listbox1.ItemData(i) = text1 Then
    listbox1.Selected(i) = True
    Me.text2= i
  End If
Next

问题3:怎么把绑上查询/表的列表框当做一个表来进行数据的查询.继续我们的求证.希望有更多的人关注及补充!