以文本方式查看主题

-  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

图片点击可在新窗口打开查看此主题相关图片如下:232.png
图片点击可在新窗口打开查看
求教下,这段代码哪里错了,需要怎么改啊

[此贴子已经被作者于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,谢谢了