主题：[求助]下拉窗口打开前会执行哪里的代码？

Vars("SysUpdatePrintInfo") = True

'***************自定义代码**************
Dim tname() As String = {"仓库名称下拉_Table1","在单量详情_Table1","金属同族库存详情_Table1","带条件的料号选择_Table1","带条件的料号选择_Table2","料号选择单选_Table1"}
Dim tnames As new List(of String)
tnames.AddRange(tname)
tname = New String() {"料号选择_Table1","料号选择_Table2"}
tnames.AddRange(tname)
If tnames.Contains(CurrentTable.Name) = False Then
    Dim cns As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & "wjexcel.mdb;Persist Security Info=False"
    If Connections("wjexcel").ConnectionString = cns Then
        For Each grp As RibbonMenu.Group In RibbonTabs("PorjectMenu").Groups
            grp.Visible = False
        Next
    Else
        For Each grp As RibbonMenu.Group In RibbonTabs("PorjectMenu").Groups
            grp.Visible = False
        Next
        If CurrentTable.Name = "MainTable" Then
            RibbonTabs("SM").Selected = True
        Else
            RibbonTabs("PorjectMenu").Selected = True
        End If
        Dim dr As DataRow = DataTables("FTcaidanQX").SQLFind("表名 = '" & MainTable.Name & "'")
        If dr IsNot Nothing Then
            Dim cdsz() As String
            If CurrentTable.AllowEdit = True Then
                cdsz = dr("新增可见").split("|")
            Else
                cdsz = dr("查看可见").split("|")
            End If
            Dim cds As new List(of String)
            cds.AddRange(cdsz)
            For Each grp As RibbonMenu.Group In RibbonTabs("PorjectMenu").Groups
                If cds.Contains(grp.Name) Then
                    grp.Visible = True
                    For Each itm As RibbonMenu.RibbonItem In RibbonTabs("PorjectMenu").Groups(grp.Name).Items
                        If cds.Contains(itm.Name) Then
                            itm.Visible = True
                        Else
                            itm.Visible = False
                        End If
                    Next
                End If
            Next
        End If
    End If
    Dim qhcd As RibbonMenu.ToggleButton = RibbonTabs("PorjectMenu").Groups("排序与筛选").Items("切换")
    If CurrentTable.Filter > "" Then
        qhcd.Pressed = True
    Else
        qhcd.Pressed = False
    End If
End If