如何设置MSFlexGrid1控件?
1:我想把第一行去掉,不知道如何去掉?
2:我想把第一排的灰色改成白色的,如何做?

------------------------------------
代码如下:

Dim sqlstr As String
Dim msgtext As String
Dim ret As ADODB.Recordset

sqlstr = "select * from userinfo"

Set ret = executeSQL(sqlstr, msgtext)

With MSFlexGrid1
.Rows = 2
.CellAlignment = 4
.TextMatrix(1, 0) = "用户名"
.TextMatrix(1, 1) = "密码"

Do While Not ret.EOF
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = ret.Fields(0)
.TextMatrix(.Rows - 1, 1) = ret.Fields(1)

ret.MoveNext
Loop
End With

ret.Close

把固定行和固定列去掉就行.

第一排是灰色的我现在已改成白色的了,可以用了,
但第一排我就是去不掉呀.
我希望字段名是第一行?
如何改?
在哪里改?

.TextMatrix(1, 0) = "用户名"
.TextMatrix(1, 1) = "密码"

不知道代码是否你写的...自己写代码...自己不知道意思?...强
...

With MSFlexGrid1
.TextMatrix(0,0) = "用户名"
.TextMatrix(0,1) = "密码"
End With

我现在想在第一排加一个序号,但序号并不是我的表字段,结果提示"下标越界",为何呀,有错吗?

With MSFlexGrid1
.TextMatrix(0, 0) = "序号"
.TextMatrix(0, 1) = "用户名"
.TextMatrix(0, 2) = "密码" <<<<----下标越界

Do While Not ret.EOF
.TextMatrix(.Rows - 1, 0) = .Rows - 1
.TextMatrix(.Rows - 1, 1) = ret.Fields(0)
.TextMatrix(.Rows - 1, 2) = ret.Fields(1)
.Rows = .Rows + 1
ret.MoveNext
Loop
End With

ret.Close

我想你应该先看看MsFlexGrid的属性,方法,先..对你有好处...

设置Rows 有多少行
设置Cols 有多少列.

懂了,非常感谢