主题：若当前窗口中，有“入库表”，且已打开，则...

参考代码

If forms.ActiveForm IsNot Nothing Then
    msgbox(123)
    For Each c As object In Forms.activeform.controls
        If Typeof c Is winform.Table Then
            msgbox(c.Table.DataTable.name)
        End If
    Next
End If