主题：基于panel做页面到底部自动加载

 为什么要返回二维数组？

 

 1、你可以拼成字符串如 "值1-值2|值3-值4"，然后在js那里用split函数就好了；

 

 2、你也可以封装成json http://www.foxtable.com/mobilehelp/scr/0167.htm

 

我用数组形式写在20楼了

用这种方式生成json：http://www.foxtable.com/mobilehelp/scr/0167.htm

这是移动文档sendAjaxText的内容，问题是下面的粉色字体

1、在"d:\web"目录下，建立一个子目录lib，在这个目录建立一个文本文件，文件名为"ajaxform.js"，文件内容为：

function getDate(){
    var result = sendAjaxText("getDate","accept.htm","",false);
    document.getElementById("p1").innerHTML="今天日期:<br/>" + result;
}

function getUser(){
    var result = sendAjaxText("getUser","accept.htm","",false);
    var user=JSON.parse(result);
    result="姓名:" + user.name + "<br/>" + "年龄:" + user.age
    document.getElementById("p1").innerHTML=result;
}

2、HttpRequest事件代码：

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddButtonGroup("form1","btg1",True)  '垂直排列
            .Add("btn1", "getUser","button").Attribute=""
            .Add("btn2", "getDate","button").Attribute=""
        End With
        wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的数据 
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
    Case "accept.htm"
        Select e.PlainText
            Case "getUser" '发送jason数据

                Dim jo As New JObject
                jo("name") = "李云龙"
                jo("age") = "36"
                jo("card") = New JObject
                jo("card")("bank") = "工行"
                jo("card")("account") = "12345678"
                Dim v As String =CompressJson(jo).ToString()
                问题：在这里生成并压缩json，在哪里解析这段json呢？js文件应该怎么调整？
                e.WriteString(v)
            Case "getDate" '发送纯文本
                e.Writestring(CUDate(Date.Today))
        End Select
End Select

 代码不需要调整的啊，js那里已经写代码解析了json的

 

var user=JSON.parse(result);

 生成你要插入的html，至于你要插入到哪个位置，就用js找到对应的位置设置 innerHTML

 

 如果弹出了msgbox("女1")，而你的drs为空。可能：

 

1、没有符合条件的行，要记得你的是sqlfind，是后台查询数据，没有保存的数据查不到；2、查询条件的列名写错，核对后台数据表的列名，不能写错。

 

 

29楼，2种情况都检查了，还是为0，请帮看看