主题：请老师指点如何解决 移动开发问题求助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目23.foxdb

帮助里的例子，如果要实现图片中所描述，该如何修改代码，请老师指点

js代码

 

function tongji(){
    var result = submitAjaxForm('form1','',false);
    document.getElementById("p1").innerHTML=result;
    onload();
}

function dynaActiveSheet(){
   var r = table1.rows[table1.rowSel].cells[0].innerHTML;
   var c = table1.rows[0].cells[table1.colSel].innerHTML;
   var result = sendAjaxText(r + "," + c, "image.htm","",false);
   document.getElementById("p2").innerHTML=result;
}

 

 

httprequest代码

 

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","tongji.htm")
        With wb.AddInputGroup("form1","ipg1","销售统计")
            .AddSelect("水平分组","水平分组","|产品|客户|雇员").Attribute= "onchange= 'tongji()'"
            .AddSelect("垂直分组","垂直分组","|产品|客户|雇员").Attribute= "onchange= 'tongji()'"
            .AddSelect("统计列","统计列","数量|金额")
        End With
        'With wb.AddButtonGroup("form1","btg1",True)
        '    .Add("btn1", "统计", "button").Attribute= "onclick= 'tongji()'"
        'End With
        wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的 页面
        wb.AppendHTML("<div id='p2' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的 页面
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)
    Case "tongji.htm"
        Dim wb As New weui
        If e.PostValues.ContainsKey("垂直分组") AndAlso e.PostValues.ContainsKey("水平分组") AndAlso e.PostValues.ContainsKey("统计列") Then
            Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
            b.HGroups.AddDef(e.PostValues("水平分组"))
            b.VGroups.AddDef(e.PostValues("垂直分组"))
            b.Totals.AddDef(e.PostValues("统计列"))
            With wb.AddTable("","Table1")
                .CreateFromDataTable(b.Build(True))
               
                .AfterSelChange = "dynaActiveSheet()"
            End With
        Else
            wb.InsertHTML("请按输入分组列和统计列!")
        End If
        e.WriteString(wb.Build)
    Case "image.htm"
        Dim ary = e.PlainText.split(",")
        msgbox("查找得到产品【" & ary(0) & "】的图片路径")
        e.WriteString("<img src='./images/001.jpg'>")
End Select

谢谢老师，试过了，可以了

 

1、你js编写了吗？浏览器调试有没有报错？

 

2、

 

比如你设置 e.WriteString("<img src='./images/001.jpg'>")，那么你在 web/images/ 文件夹下，必须有001.jpg 的图片，才行。

照片有的，但是就是不出来，js也放上去了，任何错误都没有报

 

js里面加入alert弹出值看看；httprequest里面加入msgbox弹出值看看。

原因找到了谢谢老师

我测试这个网址没问题 http://664748.com:8082/cxewm.htm

 

如果合成函数有问题，请加入msgbox，看是否弹出，确认执行了对应代码。