MSHFlexGrid的子带区好象和记录集有关。 Publishers 字段:Pub_ID Titles 字段:Pub_ID,Title_ID Sales 字段:Title_IDDim cnn6 As New ADODB.Connection Dim adoRs6 As New ADODB.Recordset Dim SQL As String Dim strShapeConn SQL = "SHAPE {SELECT * FROM Publishers} APPEND (( SHAPE {SELECT * FROM Titles} APPEND ({SELECT * FROM Sales} RELATE Title_ID TO Title_ID) AS rsSales) RELATE Pub_ID TO Pub_ID) AS rsTitles" cnn6.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb" strShapeConn = "Provider=MSDataShape; Data " & cnn6 adoRs6.Open SQL, strShapeConn Set Me.MSHFlexGrid1.DataSource = adoRs6 adoRs6.Close
Publishers
字段:Pub_ID
Titles
字段:Pub_ID,Title_ID
Sales
字段:Title_IDDim cnn6 As New ADODB.Connection
Dim adoRs6 As New ADODB.Recordset
Dim SQL As String
Dim strShapeConn
SQL = "SHAPE {SELECT * FROM Publishers} APPEND (( SHAPE {SELECT * FROM Titles} APPEND ({SELECT * FROM Sales} RELATE Title_ID TO Title_ID) AS rsSales) RELATE Pub_ID TO Pub_ID) AS rsTitles"
cnn6.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb"
strShapeConn = "Provider=MSDataShape; Data " & cnn6
adoRs6.Open SQL, strShapeConn
Set Me.MSHFlexGrid1.DataSource = adoRs6
adoRs6.Close
感谢,我试一下,