下面的代码，是我使用VS FlexGridPro 8.0的一段完整代码，问题是：数据行只显示到第101行，后面的行应该是有数据的，但实际是空白的，为什么？

[goj2000]

下面的代码，是我使用VS FlexGridPro 8.0的一段完整代码，问题是：数据行只显示到第101行，后面的行应该是有数据的，但实际是空白的，为什么？

Option Explicit

Dim Vid As String
Dim WithEvents adoPrimaryRS As Recordset
Dim Sheet%

Private Sub Form_Load()
SysPath = App.Path
If Len(SysPath) > 3 Then SysPath = SysPath & "\"
DatabaseName = SysPath & "NWIND.mdb"

Dim SQLStr As String
Dim db As Connection

'access连接字
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseName & _
";Persist Security Info=false"

Set db = New Connection
db.CursorLocation = adUseClient
db.Open ConnectString

Set adoPrimaryRS = New Recordset

SQLStr = "select * from Orders order by orderid"
adoPrimaryRS.Open SQLStr, db, adOpenStatic, adLockOptimistic

Set VSFlexGrid1.DataSource = adoPrimaryRS

Lbl已有订餐单位资料.Caption = "已有数量：" & adoPrimaryRS.RecordCount

adoPrimaryRS.Close
Set adoPrimaryRS = Nothing
db.Close
Set db = Nothing

End Sub

[goj2000]

附件中是完整的出错的代码，请大侠们帮忙查一下是什么原因。谢谢。

• 打赏
• 举报

回复 赞