移动端上传照片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动端上传照片

共有7359人关注过本帖树形打印复制链接主题：移动端上传照片

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111534 积分：567770 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/29 15:27:00 [显示全部帖子]

参考：http://www.foxtable.com/mobilehelp/topics/0060.htm

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111534 积分：567770 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/29 16:11:00 [显示全部帖子]

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

if e.Files("up1").count = 0 then

With wb.AddMsgPage("","msgpage","增加失败", "身份证扫描件不能为空!")

                        .icon = "Warn" '改变图标
                        .AddButton("btn1","返回").Attribute = ""
                    End With
                    e.WriteString(wb.Build)
                    Return '必须返回

end if

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111534 积分：567770 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/29 16:32:00 [显示全部帖子]

dim lst as list(of string) = ds.Lines("身份证扫描件")

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)

lst .add("\实名制管理\" & ds("项目名称") & "\" & ds("姓名") & "\" & fln)

                    Next
                    ds.Lines("身份证照片") = lst
                End If
            Next