主题：移动端上传照片

老师，请教一下移动端上传照片，哪儿该怎么修改？

我pc端的照片的路径是这样的：/实名制管理/项目名称列的项目名称/姓名列的姓名/身份证.jpg

 

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

点击浏览该文件:代码.txt

在请教一下老师，身份证扫描件必传，怎么判断不能为空？

        Else
            Dim nms() As String = {"项目名称","劳务队伍单位名称","劳务队伍负责人姓名","姓名","身份证号码","性别","出生日期","年龄","联系电话","家庭地址","卡号","开户银行信息","工种","进场日期","身份证扫描件"} '不能为空的列名数组
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
                    With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
                        .icon = "Warn" '改变图标
                        .AddButton("btn1","返回").Attribute = ""
                    End With
                    e.WriteString(wb.Build)
                    Return '必须返回
                End If
            Next
            nms = New String() {"项目名称","劳务队伍单位名称","劳务队伍负责人姓名","姓名","身份证号码","性别","出生日期","年龄","联系电话","家庭地址","卡号","开户银行信息","工种","进场日期","身份证扫描件"} '不能为空的列名数组  '重新定义了nms数组,增加了两列.
            Dim ds As DataRow = DataTables("实名制管理").AddNew()
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) Then
                    ds(nm) = e.PostValues(nm)
                End If
            Next
            For Each key As String In e.Files.Keys
                If key = "up1" Then
                    For Each fln As String In e.Files(key)
                        'e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
                        e.SaveFile(key, fln, "e:\实名制管理\" & ds("项目名称") & "\" & ds("姓名") & "\" & fln)
                    Next
                    ds.Lines("身份证照片") = e.Files(key)
                End If
            Next

老师，路径存为这样的路径怎么修改

ds.Lines("身份证扫描件") = e.Files(key)

我这样写不对

ds.Lines("身份证扫描件") = "\实名制管理\" & ds("项目名称") & "\" & ds("姓名") & "\" & e.Files(key)

老师，上传照片处还是有问题，我逐个添加，只会存一个，如果我把Incremental 设为true,保存会报错

            With wb.AddInputGroup("form1","身份证照片","身份证照片")
                With  .AddUploader("up1","身份证照片",True) 'True表示允许上传多个文件
                    '.AllowDelete = True '允许删除
                    '.Incremental = True '允许重复选择文件或连续拍照
                End With
            End With

 

开始我是做的js提交，帮组的这个我也看了，是做的单独的一个页面，就是没转变过来

还是没用来，请老师看看，js文件按照帮助，写了，放到了指定位置

 

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

点击浏览该文件:代码.txt

 

此主题相关图片如下：qq截图20220330082416.jpg

添加文件没问题，但是保存时，上传失败，还是报这个错

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

点击浏览该文件:代码.txt

此主题相关图片如下：qq截图20220330084502.jpg

调试2就不出来了

msgbox(1)
            If e.Files("up1").count = 0 Then
msgbox(2)
                With wb.AddMsgPage("","msgpage","增加失败", "身份证扫描件不能为空!")
msgbox(3)
                    .icon = "Warn" '改变图标
                    .AddButton("btn1","返回").Attribute = ""
                End With
msgbox(4)
                e.WriteString(wb.Build)
                Return '必须返回
msgbox(5)
            End If

If e.Files("up1").count = 0 Then 这个地方不对，修改了，数据也增加成功了，但是没跳转到保存成功

还是提示了上传失败

 

此主题相关图片如下：444444.jpg

老师，这样就不能跳转到继续增加了啊