以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  窗口最小化  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58413)

--  作者：lesliecheung912 --  发布时间：2014/10/16 12:08:00 --  窗口最小化 当执行了第一个Messagebox.show之后，Message弹出，点确定以后，程序会最小化，代码是：  If Tables("表A").Current Is Nothing Then                 Return             End If             If dr.RowState = DataRowState.Added Then \'如果是新增行,必须先保存才能插入文件                 dr.Save()             End If             messagebox.show("上传成功!!")             \'messagebox.show(dr.SQLInsertFile("附件",Filename) )             If dr.SQLInsertFile("附件",Filename) Then \'如果插入文件成功                 messagebox.show("您已审核通过!!")             Else                 messagebox.show("审核失败!!")             End If

--  作者：有点甜 --  发布时间：2014/10/16 14:01:00 --    做个例子发上，单独使用msgbox不会出现这种情况。