• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

大家帮忙看看啊 好痛苦啊

fantasyIII 2005-03-09 10:51:55
Public Sub FillMsGrid(ByVal MSGrid As AxMSFlexGridLib.AxMSFlexGrid, ByVal rec As ADODB.Recordset)
Dim i, j, RecordNum As Integer
' RecordNum = rec.RecordCount
RecordNum = RecordCount(rec)
MSGrid.Rows = RecordNum
MSGrid.Cols = rec.Fields.Count + 1
For i = 0 To RecordNum - 1
For j = 0 To rec.Fields.Count - 1
If IsDBNull(rec(j).value) Then
MSGrid.set_TextMatrix(i + 1, j + 1, " ")
Else
MSGrid.set_TextMatrix(i + 1, j + 1, rec(j).value) ‘提示这句出问题
End If
Next
MSGrid.set_TextMatrix(i + 1, 0, i + 1)
rec.MoveNext()
Next
rec.MoveFirst()
End Sub
结果一运行 出现问题了 提示是未处理的“System.Runtime.InteropServices.COMException”类型的异常出现在 axinterop.msflexgridlib.dll 中。

其他信息: HRESULT 中的异常:0x800A017D (CTL_E_INVALIDPROPERTYARRAYINDEX)
怎么回事 能解决吗 已经确定数据库参数都没问题 救命啊
...全文
25 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2005-03-09 10:51
社区公告
暂无公告