- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]循环表数据提取成JSON格式报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161149)
-- 发布时间：2021/3/8 11:05:00
-- [求助]循环表数据提取成JSON格式报错
Dim lst As List(of DataRow) = DataTables("订单列表").Select("","_Identify Desc") \'按日期顺序显示
Dim ja As New JArray
For Each o As DataRow In lst
Dim jo As New JObject
jo("a") = o("状态")
ja.Add(jo)
Next
Output.Show(ja.ToString)
获取数据遍历添加成JSON数据格式放入数组,报错截图如下，请问需如何修改
此主题相关图片如下：json.png
-- 发布时间：2021/3/8 11:34:00
--
jo("a") = cstr(o("状态"))
-- 发布时间：2021/3/8 14:42:00
--
移动开发通过192.168.1.15开启请求服务器后，使用HttpRequest返回我所需要的数据，页面单独编写，然后使用js ajax请求192.168.1.15获取数据，会提示跨域，HttpRequest中如何设置允许跨域请求？或如何返回数据不会产生跨域问题（不想使用API上所述的读取HTML文件将数据进行拼接成字符串在返回。只需要直接返回数据）
HttpRequest代码：
Dim lst As List(of DataRow) = DataTables("订单列表").Select("","_Identify Desc")
Dim ja As New JArray
For Each o As DataRow In lst
Dim jo As New JObject
jo("ordertype") = Cstr(o("订单类型"))
jo("customer") = Cstr(o("客户"))
jo("telname") = Cstr(o("联系人"))
jo("tel") = Cstr(o("电话"))
jo("teladdres") = Cstr(o("收货地址"))
jo("startdate") = Cstr(o("建单日期"))
jo("senddate") = Cstr(o("出货日期"))
jo("sale") = Cstr(o("建单人"))
ja.Add(jo)
Next
Dim lobj As New JObject
lobj("list") = ja
e.WriteString(lobj.ToString)
页面使用ajax
$.ajax({
type: "GET",
url:"http://192.168.1.15/getOrder.html" ,
success: function (result) {
console.log(result)
}
})
-- 发布时间：2021/3/8 14:54:00
--
看看：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=157245