Select Case e.Path
Case "test.htm"
wb.AppendHTML("<link rel='stylesheet' href='./lib/miniui.css'/>",True)
wb.AppendHTML("<script src='./lib/jquery.min.js'></script>",True)
wb.AppendHTML("<script src='./lib/miniui.js'></script>",True)
Dim div As String = FileSys.ReadAllText("d:\web\lib\编辑.txt")
wb.InsertHTML(div)
wb.AppendHTML("<script src='./lib/bji.js'></script>")
e.WriteString(wb.Build)
Case "getdata.htm"
Dim ja As new jarray
For Each r As Row In Tables("库存")
ja.Add(new jobject)
ja(r.Index)("商品编号")=r("商品编号").ToString
ja(r.Index)("通用名")=r("通用名").ToString
ja(r.Index)("规格")=r("规格").ToString
ja(r.Index)("批号")=r("批号").ToString
ja(r.Index)("货位号")=r("货位号").ToString
ja(r.Index)("库存数量")=r("库存数量").ToString
ja(r.Index)("有效期")=r("有效期").ToString
ja(r.Index)("生产厂家")=r("生产厂家").ToString
Next
Dim josn As String = CompressJson(ja)
e.WriteString(json)
End Select
此主题相关图片如下：232.png
求教下，这段代码哪里错了，需要怎么改啊
[此贴子已经被作者于2020/5/25 9:29:03编辑过]
加好友 
发短信
Post By：2020/5/25 9:29:00 [显示全部帖子]
