7451
社区成员
- 主页
如何把字段的数据在控件里显示出来,如MSFlexGrid1，DataGrid1。
rs.Open "select * from test", cn, adOpenDynamic, adLockOptimistic
VB+ORACLE8I，建立连接并打开后如何把字段的数据在控件里显示出来,如MSFlexGrid1，DataGrid1。（用文本框只显示一条，要按下一条逐条浏览，不直观。），控件一边要设置吗？
VB+ORACLE8I，建立连接并打开后如何把字段的数据在控件里显示出来,如MSFlexGrid1，DataGrid1。（用文本框只显示一条，要按下一条逐条浏览，不直观。），控件一边要设置吗？
...全文
请发表友善的回复…
发表回复
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
这样就可以了
.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
这样就可以了