代码
Dim Result As DialogResultResult =MessageBox.show("目录不存在,是否创建!","提示",MessageBoxButtons.YesNo)If Result = DialogResult.Yes Then Else Tables("表A").Cols("附件").CloseWindow() '这个关闭不了,CloseDropDown 也关闭不了! Sendkeys.Send("%({F4})") e.Cancel = TrueEnd If