关于和Web数据源的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1.服务端的AfterOpenProject事件代码

Forms("用户登录").Open()

If _UserName = "" Then

Syscmd.Project.Exit()

Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错

End If

Forms("窗口1").Open()

注：Forms("Server窗口").Open()，中是窗口1，所以代码将Server窗口改为窗口1

2."窗口1"添加一个启动按钮，按钮代码

Dim IP As WinForm.TextBox = Forms("窗口1").Controls("TextBox1") 'IP-文本框

If IP.text = "" Then

Messagebox.Show("请输入编号!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

return

End If

HttpServer.Prefixes.Add("http://" & IP.text & "/")

'HttpServer.WebPath = "d:\web"

HttpServer.Start()

执行代码后，报错

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：

详细错误信息：

拒绝访问。

主题：关于和Web数据源的问题