大家帮忙看看啊 好痛苦啊
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)
怎么回事 能解决吗 已经确定数据库参数都没问题 救命啊
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)
怎么回事 能解决吗 已经确定数据库参数都没问题 救命啊
...全文
相关推荐
看啊APP下载页面.rar_APP_APP下载页_下载页_看啊
【标题】"看啊APP下载页面.rar"是一个包含APP下载页面设计资源的压缩文件,主要服务于"看啊APP"的应用程序推广。这个下载页的设计特点是界面简洁,方便用户快速了解并下载应用程序。
苦丁香数控仿真软件苦丁香数控仿真软件
在苦丁香数控仿真软件中,用户可以模拟各种常见的数控机床类型,如卧式数控车床、立式数控铣床、龙门铣床等。
初中语文文摘文苑苦
在这篇文章中,“苦”不再是一个单纯的情绪表达,而是成为了一个立体的象征,一个反映着人生态度和价值观的重要标志。文章的开篇即以“苦”字的形象为引子,将它与人脸上深刻的纹路相提并论。
初中语文文摘情感苦莲
人生哲理:文章以苦莲的苦味象征生活中的困难和挑战,通过品茗苦莲的过程,作者领悟到面对困难时的应对策略——深呼吸,暗示了面对生活挫折时需要冷静和坚韧的心态。
中考语文作文我尝到了苦的滋味
通过对比工作之苦和学习之苦,我们可以更加深刻地理解到教育的重要性,并且以更加积极的态度面对学习上的每一个挑战。从作者的体验中我们可以看到,每个孩子成长的道路都不是一帆风顺的。


