如果你窗口放的是表格,直接判断currentTable
如果要得到当前编辑的窗口,使用 http://www.foxtable.com/webhelp/scr/1547.htm
Dim frm = forms.activeformIf frm IsNot Nothing Then msgbox(frm.name)Else msgbox("没有窗口")End If