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

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

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

Conda环境创建报错？教你快速解决Solving environment: failed和ResolvePackageNotFound问题本文深入解析Conda环境创建中常见的'Solving environment: failed'和'ResolvePackageNotFound'报错原因，并提供从基础到高级的系统化解决方案。涵盖渠道配置、版本通配、环境文件编辑等实用技巧，帮助开发者快速解决conda环境创建问题，提升工作效率。阅读详情

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

...全文