Question

VB中的MsFlexGrid如何用

我有一个数据库A，里面有一个表B，如何让B中的内容在MsFlexGrid中显示
SQL数据库，帮忙写个代码出来，采用后再加50分

Answer 1

rs.Open "select * from B", db, adOpenStatic, adLockReadOnly

Dim i As Integer

With MSFlexGrid1
.Rows = 1
.Refresh
Do While Not rs.EOF
.Rows = .Rows + 1
For i = 1 To rs.Fields.Count
If Not IsNull(Trim(rs.Fields(i - 1))) Then
.TextMatrix(.Rows - 1, 1) = rs.Fields("这里写你B表里的属性名称")
.TextMatrix(.Rows - 1, 1) = rs.Fields("id")
....你想显示几列就写几个，里面的内容自己定
....
.TextMatrix(.Rows - 1, 1) = rs.Fields("name")

End If
Next i
rs.MoveNext
Loop
rs.Close
End With
还有就是给你一个关于表头的现实方法
Private Sub ShowTitle()
With MSFlexGrid1
.Cols = 2
.TextMatrix(0, 1) = " 学号" //这里（0.1）0是第0行，就是最上面的一行，1是第一列，这句代码的意思是说你在最上面那行第一列那个小格子里显示的是学号。

.ColWidth(0) = 0//这个是第0列，我一般给他隐藏了
.ColWidth(1) = 1500//这个是第一列，1500是这个列的宽度。你可以自己设置一下。

End With
End Sub