首页 >> 读书频道 >> 电脑 >> RDO 放资料进入MSFlexGrid
 
· RDO之Blob资料的存
· RDO之MultiRes
· RDO rdoConne
· RDO Stored P
· RDO 之Addnew/
· RDO 结果集之Isol
· RDO 的建立记录集(二
· RDO 的建立记录集(一
· RDO之Informix
· XBase与VB用法对照
· 数据库的锁定
· 如同XBase的Macr
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

RDO 放资料进入MSFlexGrid


查看有无更新版本

关键字:VB 2006-9-18

 

有一个最简单的方式,便是使用MSRDC控制项,而後将MSFlexGrid的DataSource设定为该
MSRDC控制项,不过,透过MSRDC来做事情,在Performance上可能有所折扣,如果不用
MSRDC,可以使用以下的程序码片断。


Private rs As rdoResultset
Private qry As rdoQuery
.
.

Dim str5 As String, i As Long
Set rs = qry.OpenResultset(rdOpenKeyset, rdConcurReadOnly)

rs.MoveLast '将取得所有的资料
rs.MoveFirst

'把所有的资料放入str5中,内定格式为Column间以Tab分隔,不同
'的Row以chr(13)分隔
str5 = rs.GetClipString(rs.RowCount)
With MSFlexGrid1
     .Rows = rs.RowCount + 1          '设定MSFlexGrid的列数
     .Cols = rs.rdoColumns.Count + 1  '设定MSFlexGrid的行数
     '以下设定Title为栏位名称
     .Row = 0
     For i = 0 To rs.rdoColumns.Count - 1
        .Col = i + 1
        .Text = rs.rdoColumns(i).Name
     Next
     '将MSFlexGrid的资料区整个Mark起来
     .Col = 1: .Row = 1
     .RowSel = .Rows - 1: .ColSel = .Cols - 1
     '设定MSFlexGrid的资料
     .Clip = str5
     '取消MSFlexGrid的选取
     .RowSel = 1: .ColSel = 1
End With



RDO 放资料进入MSFlexGrid

[ 1 ]
RDO 放资料进入MSFlexGrid num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑