For Each c As object In e.form.controls
   
    If typeof c Is winform.Table Then
       
        msgbox(c.Table.DataTable.name)
       
    End If
   
Next

不理解你的意思。已打开的表指什么？什么特征？如何找到？

如下图中，有三个副表“联系人”,“银行帐户”，“资质等级”，如当前窗口中打开的是"联系人"这个表，如何来判断这个表的名称，如打开的是“银行帐户”这个表时，又如何判断这个表的名称，也就是说如何判断当前窗口中打开表的名称。

像判断窗口是否打开一样：

if form("窗口1").opened

此主题相关图片如下：333.png

For Each c As object In e.form.controls    
    If typeof c Is winform.Table Then
        If c.visible = True Then
            msgbox(c.Table.DataTable.name)
        End If
    End If   
Next

增加明细的代码：CurrentTable.addnew()，但这个代码一定要在需要增加的表中点击后才会生效，很容易增加到其他表中，所以需要一个条件来判断当前窗口中打开表的名称

For Each c As object In e.form.controls    
    If typeof c Is winform.Table Then
        If c.visible = True Then
            msgbox(c.Table.DataTable.name)
        End If
    End If   
Next