主题：[求助]关于Foxtable表名行

好像没有双击表名的事件吧

试试切换表事件:

If MainTable.Name = "表A" Then
Dim Result As DialogResult
Result = MessageBox.Show("您想隐藏本表吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Tables("表A").Visible = False
Else
    Tables("表A").Visible = True
End If
End If