以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请求服务器数据问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158194)
--  作者：夜点蚊香
--  发布时间：2020/11/11 9:49:00
--  请求服务器数据问题
开启服务
HttpServer.Prefixes.Add("http://*:81/")
HttpServer.WebPath = "d:\\web"  \'指定静态文件存储位置
HttpServer.Start()

在web文件夹新建 ceshi.html 文件代码如下
<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="UTF-8">
    <title>数据列表测试</title>
    <script src="easyui/jquery.min.js"></script>
    <script src="easyui/jquery.easyui.min.js"></script>
    <script src="easyui/locale/easyui-lang-zh_CN.js"></script>
    <link rel="stylesheet" href="easyui/themes/default/easyui.css">
    <link rel="stylesheet" href="easyui/themes/icon.css">
    <link rel="stylesheet" href="easyui/themes/color.css">
</head>
<body>
<div id="t1"></div>
<script src="table.js"></script>
</body>
</html>

在wen文件夹下 新建 table.js文件代码如下
$(function () {
    $(\'#t1\').datagrid({
        title: \'数据表\',
        iconCle: \'icon-search\',
        width: 800,
        height: 600,
        collapsible: true,
        columns:[[
            {field:\'序号\',title:\'序号\'},
            {field:\'星级\',title:\'星级\'}
        ]],
        url:\'设置_星级\'
    })
})
现在网页端界面 打开ceshi.html的时候已经可以看到表格界面

在foxtable HttpRequst事件 代码如下

Select Case e.path
    Case "设置_星级"
        e.AsyncExecute = True \'通知系统返回数据
        Functions.AsyncExecute("getdata",e) \'异步调用
End Select

Dim e As RequestEventArgs = args(0) \'获取传递过的e参数
Dim cmd As List(of DataRow) = DataTables("设置_星级").Select("","日期 Desc")
Dim ja As new jarray
Dim i As Integer
For Each DR As DataRow In DT.DataRowS
    ja.add(new jobject)
    ja(i)("序号") = dr("序号").Tostring
    ja(i)("星级") = dr("星级").Tostring
Next
e.WriteString(CompressJson(ja))
e.handled = True

点击确定的时候  报错  

编译错误:"e"已声明未此方法的一个参数.
错误代码:Dim e As RequestEventArgs = args(0) \'获取传递过的e参数

请帮忙看看后面的代码是否可以完成数据返回,在网页打开ceshi.html网页的时候,看到foxtable 设置_星级 里的数据
学习到这个地方,有点乱请大神指教一下,学习方法.
--  作者：有点蓝
--  发布时间：2020/11/11 9:55:00
--  
下面代码需要放到自定义函数中http://www.foxtable.com/mobilehelp/topics/0025.htm

Dim e As RequestEventArgs = args(0) \'获取传递过的e参数
Dim cmd As List(of DataRow) = DataTables("设置_星级").Select("","日期 Desc")
Dim ja As new jarray
Dim i As Integer
For Each DR As DataRow In DT.DataRowS
    ja.add(new jobject)
    ja(i)("序号") = dr("序号").Tostring
    ja(i)("星级") = dr("星级").Tostring
Next
e.WriteString(CompressJson(ja))
e.handled = True

另外异步函数的使用请先仔细完整的看看：http://www.foxtable.com/mobilehelp/topics/277.htm

涉及到easyui前端的用法请到web板块提问：http://www.foxtable.com/bbs/index.asp?boardid=24
--  作者：夜点蚊香
--  发布时间：2020/11/11 10:09:00
--  搞定了,谢谢指教
搞定了,谢谢指教