主题：批量保存照片

怎么设置一下同名照片只能保存一次呢？

现在PictureViewer1控件中的图片是，只要没保存一次照片里面就会多一张照片，我想实现只要照片同名，在控件中只显示一张照片

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    For Each dr As DataRow In DataTables("表A").Select("姓名 is not null")
        Dim str As String = dr("姓名")
        If dr.isnull("身份证号") = False Then
            str = str & right(dr("身份证号"),4)
        End If
        For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
            Dim name As String = FileSys.GetName(file)
           
            If name.Contains(str) Then
                FileSys.CopyFile(file, ProjectPath & "图片/" & name, True)
                    dr("图片") = name
            End If
        Next
    Next
    DataTables("表A").datacols(“图片").DefaultFolder  = ProjectPath & "图片/"
End If

老师这样能实现一个客户只能保存一张照片，可是有的客户好几张照片，我想实现一个客户只要照片名称完全一样只能保存一次，也就是PictureViewer1控件中的图片同名只能显示一张，不同名是可以都能正常显示的。

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    For Each dr As DataRow In DataTables("表A").Select("姓名 is not null")
        Dim str As String = dr("姓名")
        If dr.isnull("身份证号") = False Then
            str = str & right(dr("身份证号"),4)
        End If
        For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
            Dim name As String = FileSys.GetName(file)
           
            If name.Contains(str) Then
                FileSys.CopyFile(file, ProjectPath & "图片/" & name, True)
                Dim ls = dr.lines("图片")
                If ls.contains(name) = False Then
                    ls.add(name)

                    dr.lines("图片") = ls
                End If
            End If
        Next
    Next
    DataTables("表A").datacols("图片").DefaultFolder  = ProjectPath & "图片/"
End If

能设置打开PictureViewer控件时默认显示指定的照片吗？

 

直接绑定表列，不就显示了？

 

多张图片，你要显示某一张？根据什么规则？上传实例说明。

每一个客户都有好几张甚至十几张照片。命名规则都是以客户表中的客户姓名和身份证号码后四位再加上“-”以及其他特征字符组成的。比如“张三1234-手持身份证”、“张三1234-经营场所”、“张三1234-收银台”、“张三1234-营业执照”、“张三1234-经营场所1” 、“张三1234-经营场所2” “张三1234-经营场所3 、“张三1234-经营场所4”、“张三1234-经营全景” 、“张三1234-经营门头” 、“张三1234-市场大门头” 、“张三1234-商品”“张三1234-租赁合同“ 、“张三1234-授权书”等等照片。我想显示如果客户表中某一个客户有照片存在而且有“手持身份证”照片存在时只要选中该客户就以“手持身份证”的照片显示而不是乱显示。

 你可以把手持身份证放在第一个位置。

 

For Each dr As DataRow In DataTables("表A").Select("姓名 is not null")
    Dim ls As List(Of String) = dr.lines("图片")
    For Each s As String In ls
        If s.Contains("手持身份证") Then
            ls.Remove(s)
            ls.Insert(0,s)
            Exit For
        End If
    Next
    dr.lines("图片") = ls
Next

 

这段代码写到哪？

 

写在一个单独按钮。

 

或者是写在你导入图片的后面写。