listview 控件显示access数据库中的表格！

呵呵，各位看帖的，先谢过了！  
   
  主要是我看上了listview控件的checkbox的显示属性，想把access数据库中的表通过listview控件显示出来，请问，熟悉此操作的大虾能否给个代码？  
   
  那个listviwe控件在msdn中的指导，小丫头没看明白！  
   
  但愿100分能给出去，等待了！ 问题点数：100、回复次数：3Top

1 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-03-07 11:53:01 得分 100

你运气太好了点，我前几天做的！  
      控件：  
          ProgressBar1    
          ListView1  
          Data1  
          Command1  
          Combo1  
  data1与access   关联上  
   
   
      Option   Explicit  
   
  Dim   intX   As   Integer                     '   Counter   variable.  
  Dim   Val   As   Recordset  
  Dim   Max   As   Integer  
  Dim   Totel   As   Integer  
   
  Private   Sub   Combo1_Click()  
           
          ListView1.View   =   Combo1.ListIndex  
  End   Sub  
   
  Private   Sub   Command1_Click()  
  Me.ProgressBar1.Max   =   Data1.Recordset.RecordCount  
    Totel   =   Data1.Recordset.RecordCount  
    Data1.Caption   =   Totel  
    Set   Val   =   Data1.Recordset  
    Do   While   Val.EOF   =   False  
          Max   =   Max   +   1  
          Me.ProgressBar1.Value   =   Max  
            With   ListView1.ListItems.Add()  
                      For   intX   =   0   To   4  
                        If   intX   =   0   Then  
                              .Text   =   Data1.Recordset.Fields(0).Value  
                        Else  
                              .SubItems(intX)   =   Data1.Recordset.Fields(intX).Value  
                        End   If  
                      Next  
                      Data1.Recordset.MoveNext  
              End   With  
    Loop  
  End   Sub  
   
  Private   Sub   Form_Load()  
  Me.Show  
  Me.ListView1.View   =   lvwReport  
   
  Dim   colX   As   ColumnHeader           '   Declare   variable.  
   
  For   intX   =   1   To   5  
        Set   colX   =   ListView1.ColumnHeaders.Add()  
        colX.Text   =   "Field   "   &   intX  
        colX.Width   =   ListView1.Width   /   5                             ‘根据实际情况需要几栏自己设定  
  Next   intX  
      With   Me.Combo1  
              .AddItem   "Icon"                       '0  
              .AddItem   "Small   Icon"           '1  
              .AddItem   "List"                       '2  
              .AddItem   "Report"                   '3  
              .ListIndex   =   3  
        End   With  
   
       
  End   Sub  
   
   
   
  Private   Sub   ListView1_Click()  
        Data1.Caption   =   Me.ListView1.SelectedItem.Index   &   "/"   &   Totel  
  End   Sub  
  Top

2 楼mlxsx（）回复于 2006-03-07 12:17:44 得分 0

呵呵，谢谢啊，看来实际中大家都用到了，我调试了一下，调试的错误是无法识别的数据库格式！Top

3 楼ppangge（）回复于 2006-04-25 18:04:16 得分 0

我已经测试过了,完全可以!!Top

相关问题

• 控件
• access
• me
• intx
• listview
• colx
• totel
• recordset
• progressbar
• 显示

• 帖主：mlxsx
• ZOU_SEAFARER

• Visual Basic类图书
• Visual Basic类源码下载