主题：submitAjaxFileds自动显示图片

各位老师，

 

请问怎样写submitAjaxFileds可以自动显示图片，知道要用.AddImage ,但不会写

帮助里面的只能显示文本

谢谢！

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

点击浏览该文件:管理项目5.zip

你需要这个？

 

http://www.foxtable.com/mobilehelp/scr/0110.htm

 

我的意思是移动端打开后怎样能自动显示图片

帮忙里面的示例只能得到图片名

 

此主题相关图片如下：qq浏览器截图20190422075621.png

请照着这个做啊

 

http://www.foxtable.com/mobilehelp/scr/0110.htm

 

 

 

有点类似这个贴子里面的第二个问题，要显示照片列的照片，但一直不理解怎么写

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=131408&skin=0

请照着这个做啊

 

http://www.foxtable.com/mobilehelp/scr/0110.htm

折腾不出来，还请老师帮下忙,谢谢！

比如

 

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","订单明细")
            With .AddSelect("province","产品名称","|"+DataTables("订单明细").GetComboListString("产品名称"))
                .Attribute = "onchange=""setAjaxOptions('county','getCounties.htm','province',false)"""
            End With
            With .AddSelect("county","产品型号","")
                .Attribute = "onchange='setCodes()'" '调用js函数
            End With
           
        End With
        wb.AddPage("form1","p1") '增加两个page
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
    Case  "getCounties.htm" '根据输入的产品名称,获取产品型号列表
        Dim pps As String = DataTables("订单明细").GetComboListString("产品型号","产品名称='" & e.Values("province") & "'")
        e.WriteString("|" & pps)
    Case "getCodes.htm" '根据输入的产品名称和型号,获取图片和价格
        Dim wb As New weui
        With wb.AddInputGroup("","ipg1","图片")
            Dim dr As DataRow = DataTables("订单明细").Find("产品名称='" & e.Values("province") & "' and 产品型号='" & e.values("county") & "'")
            If dr IsNot Nothing Then
                With .AddUploader("up1","",True)
                    .AllowAdd = False '关闭文件上传功能
                    .AddImage("./images/" & dr("图片") )
                End With
                .AddInput("postcode","价格","text").Value = dr("价格")
            End If
        End With
        e.WriteString(wb.Build) '生成网页
End Select

 

js代码

 

function setCodes(){
    var result= submitAjaxFileds('getCodes.htm','','province','county',false);
    if(result){
        document.getElementById("p1").innerHTML=result;
    }
}

明白了，谢谢！

还有一个问题请教一下，有些图片只能显示一部分，估计是像素比较大，应该怎样调整可以显示完整？