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

2009-01-16 10:49:26 169 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

goj2000 墨衍会员 · AI 创作全网分发关注 + 加入社区

三极管NPN与PNP的工作原理及快速识别技巧本文深入浅出地解析了三极管NPN与PNP的核心工作原理。通过“水龙头”比喻，阐明其以小电流控制大电流的放大与开关本质。文章重点对比了NPN与PNP在电流方向、电位关系和控制逻辑上的根本区别，并提供了快速识别技巧与实用的选型、应用指南，帮助电子爱好者与工程师快速掌握这两种基础元件的关键知识。阅读详情

下面的代码，是我使用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

...全文