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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于图片的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129695)

--  作者：裴保民
--  发布时间：2019/1/4 1:56:00
--  关于图片的问题

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
For Each dr As DataRow In DataTables("客户资料").Select("客户姓名 is not null")
Dim str As String = dr("客户姓名")
If dr.isnull("身份证号") = False Then
str = str & right(dr("身份证号"),6) & "-身份证正面" OrElse "-身份证反面"
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("客户资料").datacols("身份证照片").DefaultFolder = ProjectPath & "照片\\客户身份证照片/"
End If

这段代码哪错了？运行后出错

想实现把某一个文件夹下符合条件的图片有选择的绑定到客户图片上
图片命名规则是：姓名+身份证后6位+“-”+身份证正面、姓名+身份证后6位+“-”+身份证反面还有其他命名规则。
想实现把符合条件的姓名+身份证后6位+“-”+身份证正面和姓名+身份证后6位+“-”+身份证反面两张照片绑定到户图片上

[此贴子已经被作者于2019/1/4 7:20:10编辑过]

--  作者：有点甜
--  发布时间：2019/1/4 8:56:00
--

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    For Each dr As DataRow In DataTables("客户档案").Select("姓名 is not null")
        Dim str1 As String = dr("姓名")
        Dim str2 As String = ""
        If dr.isnull("身份证") = False Then
            str2 = str2 & right(dr("身份证"),6)
        End If
        Dim str3 = "-身份证正面"
        Dim str4 = "-身份证反面"
        For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
            Dim name As String = FileSys.GetName(file)
            If name.Contains(str1) AndAlso name.Contains(str2) AndAlso (name.contains(str3) OrElse name.contains(str4)) Then
                Dim ls = dr.Lines("身份证照片")

                If ls.contains(name) = False Then
                    ls.add(name)
                    dr.lines("身份证照片") = ls
                End If

            End If
        Next
    Next
End If

--  作者：裴保民
--  发布时间：2019/1/4 18:39:00
--

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
For Each dr As DataRow In DataTables("客户资料").Select("客户姓名 is not null")
Dim str1 As String = dr("客户姓名")
Dim str2 As String = ""
If dr.isnull("身份证号") = False Then
str2 = str2 & right(dr("身份证号"),6)
End If
Dim str3 = "-身份证正面"
Dim str4 = "-身份证反面"
For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
Dim name As String = FileSys.GetName(file)
If name.Contains(str1) AndAlso name.Contains(str2) AndAlso (name.contains(str3) OrElse name.contains(str4)) 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("客户资料").datacols("身份证照片").DefaultFolder = ProjectPath & "照片\\客户身份证照片/"
End If

经过运行后发现怎么把其他客户的身份证照片一起拷贝到照片\\客户身份证照片/里呢？本来应该只能拷贝刘永建的身份证正面和反面照片呢，怎么连同王合珍的身份证正面和反面一起拷贝过来了呢？看看哪错了

此主题相关图片如下：复制照片.png

[此贴子已经被作者于2019/1/4 18:41:58编辑过]

--  作者：有点蓝
--  发布时间：2019/1/4 20:23:00
--
这个代码是复制整个表的人的，不是只复制一个人的

--  作者：裴保民
--  发布时间：2019/1/4 20:58:00
--
怎么设置成只复制一个人的呢

--  作者：有点蓝
--  发布时间：2019/1/4 21:07:00
--
For Each dr As DataRow In DataTables("客户资料").Select("客户姓名 is not null")

改为

dim dr As DataRow = DataTables("客户资料").Select("客户姓名 =‘xxxxx’")

--  作者：裴保民
--  发布时间：2019/1/4 21:28:00
--
dim dr As DataRow = DataTables("客户资料").Select("客户姓名 =‘xxxxx’") 改成什么值呢？

--  作者：有点蓝
--  发布时间：2019/1/4 22:10:00
--
想复制谁的照片就写谁的名称，或者从窗口控件里面取值

--  作者：裴保民
--  发布时间：2019/1/4 22:35:00
--
错误对话框什么原因

此主题相关图片如下：错误3.png

--  作者：有点蓝
--  发布时间：2019/1/4 23:04:00
--
dim dr As DataRow = DataTables("客户资料").Find("客户姓名 =‘xxxxx’")