如题:如何将多个数据表填充到listview当中显示,并每次click其中的一个item时,只打开相应一个数据表?希望各位大侠给说仔细点,偶是处学者!
解决方案 »
- 简单问题,把数据库字段在list中显示~在线等……
- ADODC控件怎么打开与数据库的连接?
- 怎样把vsflexgrid中的数据写入数据库
- richtextbox显示rtf文件的问题
- 控件背景透明的问题?
- 如何取数据库的属性
- 怎样通过vb 程序生成excel文件?
- 请教~~~~~~~~~~~~~~~~`郁闷、
- 请教一个问题(解答送分)
- 多谢了!!/////在windows大字体下做的软件,在小字体下使用时出现窗体变小、控件重叠,如何解决(窗体不变,控件无重叠)?by the way各位习惯用哪种字体呀?
- 一个关于三维数组的问题
- 强烈要求高手请进!仓库软件中的期初库存和季末盘点表的问题,求最佳数据库设计!
如果是数据,你每个表里面的数据格式是一样的吗?用两个listview不是更好?一个列表名,一个列数据
open "select * from " & item.key" 就可以了
'参数:数据库名称,ListView控件
'返回:无
Public Sub AddTableToListView(ByVal strDBName As String, ByRef lvw As ListView)
Dim daoDB As Database
Dim objTable As TableDef
Dim itemX As ListItem
Set daoDB = OpenDatabase(strDBName)
lvw.ListItems.Clear
For Each objTable In daoDB.TableDefs
If objTable.Attributes = 0 Then Set itemX = lvw.ListItems.Add(, objTable.Name, objTable.Name)
Next
daoDB.Close
Set daoDB = Nothing
Set itemX = Nothing
End Sub'单击ListView控件中的Item事件,打开对应的数据表Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim daoDB As Database
Dim rsTemp As Recordset
Set daoDB = OpenDatabase(strDBName) 'strDBName 数据库名称
Set rsTemp = daoDB.OpenRecordset(Item.Key) '其他代码。
End Sub
第一次填充完数据以后
再找到第二个表时,写入数据时,listview.ListItems.Count 就能知道数据写到多少行了,然后+1从下面接着写入
点击后,打开相应的数据表,就困难点了,具体的你说清楚一些,LISTVIEW点击一行时,lvwlist.SelectedItem.ListSubItems (1)
可以选中的任意数据进行处理,要是打开一个表,就得知道你这一行的数据对应哪个表的数据。
我想知道,你为什么要这样做,有什么意义啊?
我用LISTVIEW控件做了一年多,这个控件非常好用,灵活,我感觉比自动绑定数据的强多了