小问题呵，容电易解决呵！帮偶一下呵！大侠们！！！！

Question

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=QINPENG"cnn.Open
rs.Open "select * from titleauthor", cnn, adOpenDynamic, adLockPessimistic
'Set DG.DataSource = rs
'Set MSFG.DataSource = rs
MSFlexGrid1.DataSource
End Sub
哪位大侠可不可以告诉偶MSFlexGrid1.DataSource的值是怎么给的么？？怎样把ADODB.Recordset对象的值给MSFlexGrid1，用代码呵！Set MSFG.DataSource = rs好像不对呵？？

Answer 1

Set MSFlexGrid1.DataSource = rs

Answer 2

可以的
MSFlexGrid1控件属性可能没有设置好

Answer 3

设置datasource这个属性没有用。它的使用方法不同于DataGrid    If Not (rs.BOF And rs.EOF) Then
        rs.MoveFirst
        MSHFlexGrid1.ClearStructure
        MSHFlexGrid1.Rows = rs.RecordCount
        MSHFlexGrid1.Cols = rs.Fields.Count
        For i = 0 To rs.RecordCount - 1
            MSHFlexGrid1.Row = i
            For j = 0 To rs.Fields.Count - 1
                MSHFlexGrid1.col = j
                MSHFlexGrid1.Text = "" & rs(j).Value
            Next j
            rs.MoveNext
        Next i
    End If

Answer 4

楼主：
不好意思，datasource可以设置的
Set MSFlexGrid1.DataSource = rs

Answer 5

我也有同样的问题，就是Me.DBGrid1.DataSource = Data1.Recordset也不对，加上set也不对啊，那dbgrid 的属性值 怎么负值？？

Answer 6

Set MSFlexGrid1.DataSource = rs这样好像就是不行呵，不过只有像楼上所说这样了！If Not (rs.BOF And rs.EOF) Then
        rs.MoveFirst
        MSHFlexGrid1.ClearStructure
        MSHFlexGrid1.Rows = rs.RecordCount
        MSHFlexGrid1.Cols = rs.Fields.Count
        For i = 0 To rs.RecordCount - 1
            MSHFlexGrid1.Row = i
            For j = 0 To rs.Fields.Count - 1
                MSHFlexGrid1.col = j
                MSHFlexGrid1.Text = "" & rs(j).Value
            Next j
            rs.MoveNext
        Next i
    End If想要有更好的方法好难呵！谁还有没有好方法呵？？

Answer 7

sangshuyezi(桑树叶子) 
MSHFlexGrid1.ClearStructure 这个属性，或方法是错的呵？还有在用ADO对像的时候rs.RecordCount属性好像是-1应该怎么解决？