-- 作者:飞天
-- 发布时间:2012/8/17 19:41:00
--
好像没有双击表名的事件吧
试试切换表事件:
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
|