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

goj2000 2009-01-16 10:49:26
下面的代码,是我使用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
...全文
38 1 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
goj2000 2009-01-16
附件中是完整的出错的代码,请大侠们帮忙查一下是什么原因。谢谢。
  • 打赏
  • 举报
回复
相关推荐
发帖
控件
加入

1433

社区成员

VB 控件
社区管理员
  • 控件
申请成为版主
帖子事件
创建了帖子
2009-01-16 10:49
社区公告
暂无公告