从“文件上传”窗口的文件管理器增加文件时，会自动重命名文件，并弹出对话框提示成功，但由于对话框是从表属性里的代码所触发，窗口如何知道用户是否点击了对话框的“确定”按钮，从而自动关闭呢（e.form.close）？
后将表属性BeforeAttachFile代码如下：
Dim ext As String
ext = e.FileName.SubString(e.FileName.LastIndexof("."))
Dim dr As DataRow = e.DataRow
If dr.IsNull("板块名称")=False AndAlso dr.IsNull("年月")=False Then
e.FileName = dr("年月") & "-" & dr("板块名称") & "-" & _UserName & ext
Dim Result As DialogResult
Result = MessageBox.Show("文件 " & e.FileName &" 上传完毕!","提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
If Result = DialogResult.OK Then
Forms("文件上传").Close
End If
End If
还是运行出错，求指教！
[此贴子已经被作者于2014-5-28 13:21:11编辑过]
加好友 
发短信
Post By：2014/5/27 23:32:00 [显示全部帖子]
