- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何通获取表名称、窗口名称等 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45302)
-- 发布时间：2014/1/21 14:22:00
-- [求助]如何通获取表名称、窗口名称等
例:在一个表格的表头,单击右键,有弹出的右键菜单,想使用
Messagebox.Show("当前表名称:" & ????)
Messagebox.Show("当前窗口标题:" & ????)
Messagebox.Show("当前窗口名称:" & ????)
请问,如何获取当前表名称、标题、窗口名称等
-- 发布时间：2014/1/21 14:26:00
--
-- 发布时间：2014/1/21 14:40:00
--
在 快捷菜单 Column 中建立了:一个标准项目,在Click 事件中写入以下代码:
Messagebox.Show(“当前表名称:” & CurrentTable.DataTable.Name )
Messagebox.Show(“当前表标题:” & CurrentTable.DataTable.Name )
Messagebox.Show("当前窗口名称:" & Forms.ActiveForm.Name)
Messagebox.Show("当前窗口标题:" & Forms.ActiveForm.Text)
结果提示:
此主题相关图片如下：报错.jpg
是因为在 系统 中 显示 的表上 不能实行是吗?
如何给出判断呢?
-- 发布时间：2014/1/21 14:48:00
--
-- 发布时间：2014/1/21 14:54:00
--
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
-- 发布时间：2014/1/21 14:55:00
--
