＆＃34;对象变量未设置＆＃34;

Question

我不知道它为什么说＆＃34;对象变量未设置＆＃34;在我的代码的这一部分..

Sub DEL

    Call rttable.AddRow(1)

    Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)

    For i=0 To 5
        Call rtitem.BeginInsert(rtnav)  
        Select Case i
        Case 0
            Call rtitem.AppendText(BadgeDoc.SAACategory(0))
        Case 1
            Call rtitem.AppendDocLink(CasDoc, "Document Link")
        Case 2
            Call rtitem.AppendText(CasDoc.SerialNumber(0))
            'Call rtitem.AppendText(Cstr(BadgeDoc.SAAOwnerSerialAll(ctrCasItem)))
        Case 3
            Call rtitem.AppendText(CasDoc.Name(0))
            'Call rtitem.AppendText(BadgeDoc.SAAOwnerNameAll(ctrCasItem))
        Case 4
            Call rtitem.AppendText(Cstr(BadgeDoc.CountryCode(0)))
        Case 5
            Call rtitem.AppendText(Cstr(BadgeDoc.SAAEmployeeType(0)))
        End Select
        Call rtitem.EndInsert
        Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
    Next

End Sub

错误发生在＆＃34; Call rttable.AddRow(1)＆＃34; 它以前工作正常，但现在它继续抛出错误

  

＆＃34;未设置对象变量＆＃34;