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

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

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

Cadence Design Entry HDL 使用教程 Cadence Design Entry HDL 使用教程前言 cadence Design Entry HDL是cadence内部集成的一款板级的EDA设计工具，早期叫 concept HDL。其为cadence最早的原配板级电路图绘制工具，只不过由于后来cadence收购了orcad然后就将旗下的capture CIS收入其中，由于后者使用起来上手简单，所以后者更为大家所熟知。虽然大家对... 阅读详情

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

...全文