主题：求助关于授权打开的问题

If Functions.Execute("shouquan","业务平台","e.Sender.Current.ImageKey") Then

If Forms.Contains(e.Sender.Current.ImageKey) Then

    Forms(e.Sender.Current.ImageKey).Open

    MainTable = Tables(Forms(e.Sender.Current.ImageKey).TableName)

End If

Else

    MessageBox.Show("你无查看权限")

End If

如上代码 红色区域改如何写才能达成 比如我点击“有效房源” 红色区域的意思就是“有效房源”   如果点击“无效客户” 红色区域就表示无效“无效客户”