如何把字段的数据在控件里显示出来,如MSFlexGrid1,DataGrid1。

gzlpyb 2003-12-21 08:40:58
rs.Open "select * from test", cn, adOpenDynamic, adLockOptimistic

VB+ORACLE8I,建立连接并打开后如何把字段的数据在控件里显示出来,如MSFlexGrid1,DataGrid1。(用文本框只显示一条,要按下一条逐条浏览,不直观。),控件一边要设置吗?
...全文
15 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
gzlpyb 2003-12-22
用set datagrid1.datasource=rs,我试了可以。
回复
fengyuyun 2003-12-22
With MSFlexGrid1
.Cols = 7
.Rows = 1
.TextMatrix(0, 0) = "文件路径"
.TextMatrix(0, 1) = "出入标志"
.TextMatrix(0, 2) = "通道"
.TextMatrix(0, 3) = "起始时间"
.TextMatrix(0, 4) = "结束时间"
.TextMatrix(0, 5) = "通话时间"
.TextMatrix(0, 6) = "ID 号"

MSFlexGrid1.FixedCols = 8
'设置单元大小
.ColWidth(0) = 2500
.ColWidth(1) = 800
.ColWidth(2) = 500
.ColWidth(3) = 1200
.ColWidth(4) = 1200
.ColWidth(5) = 1200
.ColWidth(6) = 800

Do While Not rs.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = rs.Fields(6)
.TextMatrix(.Rows - 1, 1) = rs.Fields(1)
.TextMatrix(.Rows - 1, 2) = rs.Fields(2)
.TextMatrix(.Rows - 1, 3) = rs.Fields(3)
.TextMatrix(.Rows - 1, 4) = rs.Fields(4)
.TextMatrix(.Rows - 1, 5) = rs.Fields(5)
.TextMatrix(.Rows - 1, 6) = rs.Fields(0)
rs.MoveNext
Loop
End With
这样就可以了
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告