主题：[求助]打开窗口，报错

打开窗口，报错原因？怎么处理？

此主题相关图片如下：打开窗口，报错原因？怎么处理？.jpg

 窗口afterload代码如下：

Tables("左侧导航窗口_Table1").ExtendLastCol = True


Dim r As Row = Tables("室内设计项目").Current
Tables("左侧导航窗口_Table1").Filter = "[项目编号] = '" & r("项目编号") & "'"



'行高自动调节
Tables("左侧导航窗口_Table1").AutoSizeRows()



'隐藏或禁用当前用户无权使用的按钮
If _UserGroup <> "项目管理办公室" Then
e.Form.Controls("有空").Visible = False
e.Form.Controls("没空").Visible = False
e.Form.Controls("下个任务").Visible = False
End If

        Tables("左侧导航窗口_Table1").Sort = "日期 DESC,创建时间 DESC,创建者"
Tables("左侧导航窗口_Table1").Position = 0

 Tables("左侧导航窗口_Table1").Select(0,0)

好像也是这个问题报错如下：

此主题相关图片如下：31.jpg