关于MSFlexGrid的问题，帮忙up者有分

Question

set MSFlexGrid.dataresouce=Rst
如此可以。

Answer 1

定一一个记录集
用记录集提取数据库记录set MSHFlexGrid1.DataSource=记录集

Answer 2

我是这么写得：
Set Dat1 = OpenDatabase(App.Path & "\aa.mdb")
Set rs = Dat1.OpenRecordset("bb表")
Set MSFlexGrid1.DataSource = rs
可是他老是Set MSFlexGrid1.DataSource = rs这句话报错
说
实时错误‘91’
对象变量或with块变量未设置，怎么回事？

Answer 3

这个错误好象是与数据库的连接未建立上，即rs=nothing所导致。你可已用
msgbox rs.recordcount
检查以下。

Answer 4

我可以显示rs的内容，比如text1.text=rs!学号

Answer 5

可以显示:msgbox rs.recordcount
哪位大虾帮忙亚,救命了

Answer 6

rs你声明为记录集没有?
rs.open "select * from 表名",连接...
Set MSFlexGrid1.DataSource = rs

Answer 7

dim rs as nwe adodb.recordset
Set dat1= OpenDatabase(App.Path & "\aa.mdb")
Set rs = Dat1.OpenRecordset("bb表")
if rs.bof and rs.eof then
   msgbox "表中没有记录！！！",48，"错误"
   rs.close
   exit sub
end if   
Set MSFlexGrid1.DataSource = rs
msflexgrid1.refresh

Answer 8

错了：
dim rs as nwe adodb.recordset
改为：
dim rs as new adodb.recordset

Answer 9

set MSFlexGrid.dataresouce=rs

Answer 10

大家提供的方法没错，要错也是别的地方发生错误了。要是你实在找不到原因，可以试试删除这个控件，然后新添加一个控件，恐怕就好了，VB里这种问题我已经碰到过好几次了，可能是一个BUG吧。