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

今天刚刚学习到：

本页地址：http://www.foxtable.com/mobilehelp/scr/0011.htm

严格按照例题测试操作的，但还不能看到例题中所示的：美丽效果。

我的测试效果为：http://120.*.*.4:8089/addnew.htm

我的电脑中安装了：谷歌chorme 最新版本，测试后看不到例题中的美丽效果

我用苹果手机和安桌手机都打开看看，效果没有便例的好看，

请专家指教；

[此贴子已经被作者于2017/10/12 11:23:45编辑过]

文件储存位置：D:\web\weui 三个文件有的。

Dim fl As String = "d:\web\" & e.path '合成含路径的文件名

If filesys.FileExists(fl) Then '判断用户在浏览器中输入的网页名称,是否在当前文件夹中

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html","css","zip","rar" '这里加上了js扩展名

'e.Resp '设置网页编码为gb2312

e.WriteFile(fl)

Return

End Select

End If

Dim wb As New WeUI '定义一个基于weui 框架的网页生成器

Select Case e.Path

Case "addnew.htm",""

wb.AddForm("","form1","addnew.htm")

With wb.AddInputGroup("form1","ipg1","新增订单")

.AddSelect("cp","产品","PD01|PD02|PD03|PD04|PD05")

.AddInput("gy","雇员","text")

.AddInput("kh","客户","text")

.AddInput("dj","单价","number")

.AddInput("zk","折扣","number")

.AddInput("sl","数量","number")

.AddInput("rq","日期","date")

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btnok","确定")

End With

End Select

e.WriteString(wb.Build)

----------------------

以上是照搬过来的。

在chorme 浏览器中运行，是否有报错。

如附件右侧 ”！” 提示。

我的系统是win10, 是否环境有问题？
图片点击可在新窗口打开查看

此主题相关图片如下：weui_run_error.jpg

修改过后，立即见效！是我希望看到的效果！

谢谢有点甜和有点蓝两位专家细心指教！

[此贴子已经被作者于2017/10/12 12:29:52编辑过]

主题：初学 WeUI 问题。