刚刚开始用vsflexgrid,7.0版本(PoJie),手头只有一个网上下载的控件浏览对照表,很多地方讲解不全。
环境:SQL+VB6.0
要求:将SQL表中的数据显示在vsflexgrid中
程序部分:
dim rst as adodb.recordset
'连接部分就不写了,这部分没问题
set vsflexgrid.datasource=rst
vsflexrid.text=rst.filed(0) & ""
.text属性这里是用的Mshflexgrid中的,主要是实在找不到该用什么属性了...
这里不知道该用什么属性,就是不能把数据填入控件显示....是用哪个属性啊?mshflexgrid里面的.text在vsflexgrid中就没用,它只填入了1个单元格,而不是整张vsflexgrid 控件表。
麻烦给各位指点一下,如果可以,希望能加个QQ类的及时通方法,便于请教,谢谢

解决方案 »

  1.   

    我提供的资料,可以看一下,较为全面的vsflexgrid
    http://club.5ivb.net/dispbbs.asp?boardID=126&Page=1&ID=39602
      

  2.   

    一般采用的是
    .TextMatrix(i, j) =rst.filed(0) & ""
      

  3.   

    Set vsflexgrid.DataSource = rst.Clone
      

  4.   

    .text是当前单元格内容
    .TextMatrix(i, j) =rst.filed(0) & "",I为行J为列
      

  5.   

    谢谢各位的回答!
    VSFLEXGRID控件挂接数据这么麻烦啊?!TO:fishmans(金脚指)及各位 
    我测试了,问题出现了,怎么过不了第十列?!,数据本来有19列,但是到了第10列就中止了,只显示了9列,后面的没有显示......,这是控件问题嘛??还是POJIE的就这样??
      

  6.   

    下面是我给VSFLEXGRID网格写入数据的部分代码,其中有自定义的函数1个
      '*——ExecuteSQL()是1个挂接SQL数据库的函数,没任何问题。  MSFDATA是VSFLEXGRID控件名称。 DBRST是另一个ADODB.Recordset,其作用是向控件中写入的SQL表数据。SELTAB是一个选择打开表的名称。
       Dim CountL As Integer
       Dim CountC As Integer
       Dim CCL As Integer
       'Dim CCK As Integer
       Dim Crst As ADODB.Recordset
       Set Crst = ExecuteSQL("select count(*) from syscolumns where id=object_id('" & SelTab & "')")   '*——此处是获取SQL表的列数目
       CCL = Crst.Fields(0)
       Set Crst = Nothing
       Crst.Close
       MsgBox CCL
       'CCK = DBRst.RecordCount - 1
       MsgBox CCK
       For CountC = 0 To DBRst.recordCount-1
          For CountL = 0 To CCL
            'MsfData.Select CountC + 1, CountL + 1
            MsfData.TextMatrix(CountC + 1, CountL + 1) = DBRst.Fields(CountL) & ""
          Next CountL
         DBRst.MoveNext
       Next CountC————————————————————————————————————————
    程序中一些数据的结果 DBRST.Record-1=19 ,也就是说总共有19列
    问题是VSFLEXGRID控件只显示了9列,行数是对的共43行,也就是说其他10列的数据没有。
    有点乱,不知道看清楚没有。
      

  7.   

    哭了~~控件选择有问题,不应该选LIGHT的...........