[求助]根据帮助代码测试无法加载weui的css - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

刚开始学习移动端开发，根据帮助测试weui生成网页，但是谷歌浏览器的效果还是没有样式的效果，如何解决，请求指点。

截图如下：

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

网络监视器的Httprequest代码如下（完全从帮助粘贴，除路径外未做任何改动）：

Dim fl As String = "d:\project\foxtable\web" & e.path

If filesys.FileExists(fl)

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

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

e.WriteFile(fl)

Return '这里必须返回

End Select

End If

'以下是动态生成网页的代码

Select Case e.Path

Case "addnew.htm"

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

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

e.WriteString(wb.Build) '生成网页

End Select

WeUI相关的文件已经根据帮助里的要求放至相应的目录下：

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

在浏览器的开发模式下查看css，截图如下：

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

主题：[求助]根据帮助代码测试无法加载weui的css