Foxtable(狐表)用户栏目专家坐堂 → uploader浏览已录入的照片


  共有2161人关注过本帖平板打印复制链接

主题:uploader浏览已录入的照片

帅哥哟,离线,有人找我吗?
dengk03
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:1969 威望:0 精华:0 注册:2017/8/17 12:59:00
uploader浏览已录入的照片  发帖心情 Post By:2020/2/6 19:52:00 [只看该作者]

例子里给出了用uploader上传照片的例子,我想问下如何在再次编辑该行的时候,uploader显示出上次上传的那几张照片?代码该如何写?


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


Dim url As String = "prodedit.htm?page=" & page &  "&oid=" & pr("生产编号")  '传递页码和订单编号
wb.AddForm("","form1",url)
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"编辑生产单","新增生产单"))
    With .AddInput("生产编号","生产编号","text")
        .Value = pr("生产编号")
        .Readonly = True
    End With
    
    .AddInput("生产日期","生产日期","date").Value = pr("生产日期")
    
    Dim str1 As String = "|" & DataTables("库名").SQLGetComboListString("库名","使用中 =  'true'","序号") & "|"
    str1 = str1.replace("|" & pr("生产厂") & "|","|[" & pr("生产厂") & "]|")
    .AddSelect("生产厂","生产厂",str1.trimend("|"))
    
    
    Dim str2 As String = "|" & DataTables("员工").SQLGetComboListString("姓名","在职 =  'true'","工号") & "|"
    str2 = str2.replace("|" & pr("负责人") & "|","|[" & pr("负责人") & "]|")
    .AddSelect("负责人","负责人",str2.trimend("|"))   

    Dim str3 As String = "|" & DataTables("产品").SQLGetComboListString("产品名称","使用中 =  'true'","产品编号") & "|"
    str3 = str3.replace("|" & pr("产品名称") & "|","|[" & pr("产品名称") & "]|")
    .AddSelect("产品名称","产品名称",str3.trimend("|"))   

    .AddUploader("质检记录","质检记录")  
End With

 回到顶部
总数 11 1 2 下一页