Dim sql As String

Dim i As Integer

Dim j As Integer
Call opensjk

sql = "select * from yhda "

rs.Open sql, sjk, 1, 1

MSFlexGrid1.Rows = rs.RecordCount - 1

MSFlexGrid1.Cols = rs.Fields.Count

For i = 1 To rs.RecordCount - 1

MSFlexGrid1.Rows = i

For j = 0 To rs.Fields.Count
MSFlexGrid1.Cols = j
MSFlexGrid1.Text = rs.Fields(j).Value

Next j
以上提示 MSFlexGrid1.Text = rs.Fields(j).Value 有错，不知这样写有没有问题啊。

我KAO,老兄啊 MSFlexGrid1.TextMatrix(ROW,COL)=rs.Fields(j).Value 其中ROW和COL是常量数字.你自己写啊!!!我只是给个例子

MSFlexGrid1.Rows = i改MSFlexGrid1.Rows = i + 1


MSFlexGrid1.Cols = j这句也是错的,真不知道你怎么写的.


MSFlexGrid1.Rows = i和MSFlexGrid1.Cols = j都删除.


MSFlexGrid1.Rows = rs.RecordCount - 1改MSFlexGrid1.Rows = rs.RecordCount + 1

MSFlexGrid1.Cols = rs.Fields.Count改MSFlexGrid1.Cols = rs.Fields.Count+1

[此贴子已经被作者于2007-9-17 11:15:11编辑过]

改了，可是现在提示MSFlexGrid1.Rows = rs.RecordCount - 1 错误，对像不可操作

要是rs 没有记录 便错

所以要判断rs.RecordCount