下面的代码，是我使用VS FlexGridPro 8.0的一段完整代码，问题是：数据行只显示到第101行，后面的行应该是有数据的，但实际是空白的，为什么？
下面的代码，是我使用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
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
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
goj2000 2009-01-16
附件中是完整的出错的代码，请大侠们帮忙查一下是什么原因。谢谢。
- 打赏
- 举报
