msgbox "1.请设置数据服务或检查服务器否正常工作。 " & chr(13) & "2.网络是否正常工作。" & chr(13) _
& "3.如果上述问题不能解决问题,敬请与管理员联系。", vbexclamation, "网络连接"
end
end function
10、单击显示报表,会出现下图的结果。至此我们的报表与exe程序分离的工作已经完成,只需要把这一个exe文件编译后就可以分发了。

msgbox "1.请设置数据服务或检查服务器否正常工作。 " & chr(13) & "2.网络是否正常工作。" & chr(13) _
& "3.如果上述问题不能解决问题,敬请与管理员联系。", vbexclamation, "网络连接"
end
end function
10、单击显示报表,会出现下图的结果。至此我们的报表与exe程序分离的工作已经完成,只需要把这一个exe文件编译后就可以分发了。
