未将对象引用设置到对象的实例 ？

[戈壁上的月光]

                        FrmNAreaMassInjunction.LabArea.Text = "区域：" & areas(IntArea).AreaName & "  聚集车辆列表"
                        With Frm.AsfgrdVeh_Rect
                            .Rows = UBound(areas(IntArea).VehNo) + 1     '——〉在这句出现未将对象引用设置到对象的实例错误！
                            .set_ColAlignment(0, VSFlex7U.AlignmentSettings.flexAlignLeftCenter)
                            For i = 1 To .Rows
                                Try
                                    .set_Cell(VSFlex7U.CellPropertySettings.flexcpText, i, 0, i, 0, areas(IntArea).VehNo(i - 1))
                                    .set_Cell(VSFlex7U.CellPropertySettings.flexcpText, i, 1, i, 1, areas(IntArea).StrIp(i - 1))
                                Catch ex As Exception

                                End Try
                            Next
                        End With
                        Frm.Show()

程序运行到 Frm.Show() 窗体显示出来后，将窗体关闭，程序再运行下去就出现未将对象引用设置到对象的实例错误 ！

[破咖啡罐子]

关闭后 FRM实例消失，对frm的引用会出错。

[wangyanboq]

(areas(IntArea).VehNo)为Nothing？

或者IntArea为Nothing，就会出现这样的错误

加一个判断，如 if IntArea <> nothing and (areas(IntArea).VehNo) <> noghint then

.Rows = UBound(areas(IntArea).VehNo) + 1
end if

[华芸智森]

关闭窗体用: Dispose ,直接销毁.