If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
    Forms("窗口1").open()
DataTables("在制工单信息").DeleteFor("完成情况 is null")
Tables("试产项目进度表").Grid.Styles.Normal.Border.Color = Color.Black
Tables("齐套信息").Grid.Styles.Normal.Border.Color = Color.Black
Tables("在制工单信息").Grid.Styles.Normal.Border.Color = Color.Black
Tables("工单在制过程").Grid.Styles.Normal.Border.Color = Color.Black
Tables("试产异常").Grid.Styles.Normal.Border.Color = Color.Black

If Forms("生产计划").Opened()
    Dim t2 As Table = Tables("生产计划_Table2")
        Dim dt As Date = Date.Today
        Dim nm As String = dt.Year & "年" & dt.Month & "月_" & dt.Day
        Dim idx As Integer= t2.cols(nm).Index
        t2.LeftVisibleCol = idx - 3
End If
End If

运行以上代码会出现  “不存在名称为窗口1的窗口”，请问大家这个要怎么修改啊，我是个新手，按照手册里面弄的不行。
此主题相关图片如下：qq图片20210120155419.png