当执行了第一个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