各位老师，

请问怎样写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;
    }
}

明白了，谢谢！