您的位置：程序门 -> vb -> 基础类



listview??


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


listview??
发表于：2007-04-08 20:17:41 楼主
private   sub   form_load（)

set   cn   =   new   adodb.connection
set   rs   =   new   adodb.recordset

dim   strsql   as   string
strsql   =   "select   *   from   tb_vi "
cn.open   "provider=sqloledb.1;integrated   security=sspi;persist   security   info=false;initial   catalog=gl "
   
  listview1.view   =   lvwreport
        listview1.sorted   =   true
        listview1.sortorder   =   lvwascending
        dim   mitem   as   listitem
        dim   i   as   integer
     
      for   i   =   1   to   rs.fields.count
                listview1.columnheaders.add   i,   "c "   &   i,   rs.fields（i   -   1).name
        next
              rs.movefirst
     
        do   while   not   rs.eof
                        set   mitem   =   listview1.listitems.add（,   rs.fields（1),   rs.fields（0))           ' ' ' '运行时此处报错。。
                  for   i   =   1   to   rs.fields.count   -   1
                            mitem.subitems（i)   =   iif（isnull（rs.fields（i)),   " ",   rs.fields（i))
                  next
            rs.movenext
        loop
    end   sub

为什么不能加到listview上去哦。。。

还有当我点击listview上一行的时候，怎样才能是期对应的显示在text.text上和combox.text上哦   。。。。
发表于：2007-04-09 10:23:021楼 得分:0
rs.fields（1)字段是否不唯一？

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击