主题：[求助]如何通获取表名称、窗口名称等

例:在一个表格的表头,单击右键,有弹出的右键菜单,想使用

Messagebox.Show("当前表名称:" & ????)

Messagebox.Show("当前窗口标题:" & ????)

Messagebox.Show("当前窗口名称:" & ????)

请问,如何获取当前表名称、标题、窗口名称等

在 快捷菜单 Column 中建立了:一个标准项目,在Click 事件中写入以下代码:

Messagebox.Show(“当前表名称:” & CurrentTable.DataTable.Name )

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

是因为在 系统 中 显示 的表上 不能实行是吗?

如何给出判断呢?

Messagebox.Show("当前表名称:" & CurrentTable.DataTable.Name )
Messagebox.Show("当前表标题:" & CurrentTable.DataTable.Name )

Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
    Messagebox.Show("当前窗口名称:" & Forms.ActiveForm.Name)
    Messagebox.Show("当前窗口标题:" & Forms.ActiveForm.Text)
Else
    MessageBox.Show("无活动窗口!" )
End If