毕设中遇到问题...急急急！！！

在SSTab中创建了一个MSFlexgrid，连接数据库后发现MSFlexgrid中无法显示数据。确认数据库已经连接，而且在普通窗体上的MSFlexgrid可以正常显示数据.附代码如下：



With MSFlexGrid1

        .Visible = False

        .Rows = 1

        ProgressBar1.Value = .Rows

        Do While Not Mar.EOF

            .Rows = .Rows + 1

            For i = 0 To Mar.Fields.Count - 2

                .ColAlignment(i) = 4

                .CellAlignment = 4

                Select Case Mar.Fields(i).Type

                    Case adDBDate

                        .TextMatrix(.Rows - 1, i) = Format(Mar.Fields(i + 1) & "", "yyyy-mm-dd")

                    Case Else

                        .TextMatrix(.Rows - 1, i) = Mar.Fields(i + 1) & ""

                End Select

            Next i

            Mar.MoveNext

        Loop

            .Visible = True

    End With

--------------------编程问答--------------------

'msflexgrid直接绑定记录集试试:

mar.open ...

set msflexgrid1.datasource=mar

mar.close

--------------------编程问答--------------------

引用 1 楼的回复:

VB code
'msflexgrid直接绑定记录集试试:
mar.open ...
set msflexgrid1.datasource=mar
mar.close

+1

此外还有一个方法就是使用ADO对象查询数据库，将得到的记录集组合成MSFlexGrid记录，然后AddItem到MSFlexGrid表格中。 --------------------编程问答-------------------- --------------------编程问答-------------------- 在sstab里面不现实，但是在窗体里面就显示；这个没有什么道理啊

你看看你的控件名字是否用对了 --------------------编程问答-------------------- 不大可能吧

补充：VB ,  基础类