以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]小白求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150241) |
-- 作者:cool314156 -- 发布时间:2020/5/25 9:29:00 -- [求助]小白求助 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 求教下,这段代码哪里错了,需要怎么改啊
[此贴子已经被作者于2020/5/25 9:29:03编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/5/25 9:39:00 -- Dim json As String = CompressJson(ja) e.WriteString(json) 名称不一致
|
-- 作者:cool314156 -- 发布时间:2020/5/25 9:41:00 -- ok,谢谢了 |