sstabl控件标签对应下的listview控件的显示

Private   Sub   SSTab1_Click(PreviousTab   As   Integer)  
         
          If   PreviousTab   =   0   Then  
                sql   =   "Select   *   from   userinfo"  
                Set   Return_Record   =   rs_hs(sql,   con)  
                Debug.Print   Return_Record.RecordCount  
                Show_Table   ListView1  
          End   If  
   
          If   PreviousTab   =   1   Then  
                    'sql   =   "Select   *   from   sendfileinfo"  
                  sql   =   "select   *   from   userinfo"  
                    Set   Return_Record   =   rs_hs(sql,   con)  
                    Debug.Print   Return_Record.RecordCount  
                    Show_Table   ListView2  
          End   If  
   
          If   PreviousTab   =   2   Then  
                  sql   =   "Select   *   from   userinfo"  
                  Set   Return_Record   =   rs_hs(sql,   con)  
                  Debug.Print   Return_Record.RecordCount  
                  Show_Table   ListView3  
            End   If  
   
          If   PreviousTab   =   3   Then  
                  sql   =   "Select   *   from   department"  
                  Set   Return_Record   =   rs_hs(sql,   con)  
                  Debug.Print   Return_Record.RecordCount  
                  Show_Table   ListView4  
          End   If  
                         
  End   Sub  
   
   
  Private   Sub   Show_Table(ByVal   lview   As   ListView)  
  Dim   i   As   Integer  
  Do   While   Return_Record.EOF   =   False  
   
              With   lview.ListItems.Add()  
                      For   i   =   0   To   Return_Record.Fields.Count   -   1  
                        If   i   =   0   Then  
                              .Text   =   Return_Record.Fields(0).Value  
                        Else  
                              .SubItems(i)   =   Return_Record.Fields(i).Value  
                        End   If  
                         
                      Next  
              End   With  
    Return_Record.MoveNext  
    Loop  
  End   Sub  
   
  呵呵，欢迎光临本贴的朋友   ！  
   
  我想让listview控件可以成为一个参数，让各个不同标签对应下的listview控件显示数据连接中不同的表格，只是目前程序运行过来，特别是到else语句的时候，系统提示“属性不存在！”  
   
  单个控件使用的时候显示是没有问题的，就是说给定一个listview控件，它能够保证完全显示正确，请问这个思路如果可行，那代码该如何修改！  
   
  呵呵，小丫头没整明白，劳驾各位前辈了！  
   
  呵呵，祈祷我的分数可以送出！ 问题点数：60、回复次数：5Top

1 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-03-09 16:43:36 得分 10

没仔细看你的代码，但是告诉你，SSTab的每个页都是一个容器。  
  你可以把ListView添加到每个页中。Top

2 楼mlxsx（）回复于 2006-03-09 17:08:51 得分 0

恩，其实没错，我就是在每个页上添加了不同的listview控件，为的是显示使用不同的listview   显示不同的表结构！Top

3 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-09 21:29:07 得分 50

代码有一些问题，下面的是已经改正了的，具体改什么地方自己看：  
   
  Private   Sub   SSTab1_Click(PreviousTab   As   Integer)  
         
          If   SSTab1.Tab   =   0   Then  
                Sql   =   "Select   *   from   userinfo"  
                Set   Return_Record   =   rs_hs(Sql,   con)  
                Debug.Print   Return_Record.RecordCount  
                Show_Table   ListView1  
          End   If  
   
          If   SSTab1.Tab   =   1   Then  
                    'sql   =   "Select   *   from   sendfileinfo"  
                  Sql   =   "select   *   from   userinfo"  
                    Set   Return_Record   =   rs_hs(Sql,   con)  
                    Debug.Print   Return_Record.RecordCount  
                    Show_Table   ListView2  
          End   If  
   
          If   SSTab1.Tab   =   2   Then  
                  Sql   =   "Select   *   from   userinfo"  
                  Set   Return_Record   =   rs_hs(Sql,   con)  
                  Debug.Print   Return_Record.RecordCount  
                  Show_Table   ListView3  
            End   If  
   
          If   SSTab1.Tab   =   3   Then  
                  Sql   =   "Select   *   from   department"  
                  Set   Return_Record   =   rs_hs(Sql,   con)  
                  Debug.Print   Return_Record.RecordCount  
                  Show_Table   ListView4  
          End   If  
                         
  End   Sub  
   
   
  Private   Sub   Show_Table(ByVal   lview   As   ListView)  
          Dim   i   As   Integer  
          '加上下面这一段  
          '****************************************  
          Dim   colX   As   ColumnHeader  
          lview.ListItems.Clear  
          For   i   =   0   To   Return_Record.Fields.Count   -   1  
                  Set   colX   =   lview.ColumnHeaders.Add()  
                  colX.Text   =   Return_Record.Fields(i).Name  
                  colX.Width   =   lview.Width   /   Return_Record.Fields.Count   -   1  
          Next  
          '*****************************************  
          Do   While   Return_Record.EOF   =   False  
                  With   lview.ListItems.Add()  
                          For   i   =   0   To   Return_Record.Fields.Count   -   1  
                                    If   i   =   0   Then  
                                          .Text   =   Return_Record.Fields(0).Value   &   ""  
                                    Else  
                                          .SubItems(i)   =   Return_Record.Fields(i).Value   &   ""  
                                    End   If  
                          Next  
                  End   With  
                  Return_Record.MoveNext  
            Loop  
  End   Sub  
  Top

4 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-09 21:31:51 得分 0

If   i   =   0   Then  
          .Text   =   Return_Record.Fields(0).Value   &   ""  
  Else  
          .SubItems(i)   =   Return_Record.Fields(i).Value   &   ""  
  End   If  
   
  注意，代码中的   Return_Record.Fields(i).Value   &   ""   ，后面的   &   ""   不要去掉，如果去掉，而   Return_Record.Fields(i).Value的值又为Null时会报错  
  Top

5 楼mlxsx（）回复于 2006-03-10 09:21:44 得分 0

yes,谢谢前辈了，我在实验使用效果的时候，列的添加是放在form_load事件里的，后来移植的时候落下了，真该！而且Null的问题也出了，我也没来的及想，就先换了个全值的表调试！  
   
  同时，我注意到了列值的添加，还是应该重新找个地方……  
   
  Top

相关问题

• 控件
• 代码
• debug
• sql
• listview
• sstab
• previoustab
• record
• lview
• recordcount show

• 帖主：mlxsx
• Modest
• faysky2

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