Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于图片的问题


  共有3809人关注过本帖树形打印复制链接

主题：关于图片的问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		关于图片的问题  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/1/4 20:58:00 [显示全部帖子]

怎么设置成只复制一个人的呢

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/1/4 21:28:00 [显示全部帖子]

dim dr As DataRow = DataTables("客户资料").Select("客户姓名 =‘xxxxx’") 改成什么值呢？

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/1/4 22:35:00 [显示全部帖子]

错误对话框什么原因

图片点击可在新窗口打开查看此主题相关图片如下：错误3.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/1/5 0:19:00 [显示全部帖子]

Dim dlg As New FolderBrowserDialog
Dim khxm As String = e.Form.Controls("kehuxingmingText").value
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    Dim dr As DataRow = DataTables("客户资料").Find("客户姓名='khxm'") 
   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
    DataTables("客户资料").datacols("身份证照片").DefaultFolder  = ProjectPath & "照片\客户身份证照片/"
End If

运行后出错

图片点击可在新窗口打开查看此主题相关图片如下：错误4.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/1/5 9:03:00 [显示全部帖子]

把所有代码全删了查找有数据是，可以显示客户名，乳沟没数据时就会弹出错误框的，如果加上其他代码，不管有没有数据都会弹出错误框的

怎么设置为没查到数据或数据库中没有数据时不执行下面的代码
[此贴子已经被作者于2019/1/5 9:13:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12788 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/2/28 8:37:00 [显示全部帖子]

图片输入数据图片名字初始值是以字段“姓名”和“身份证尾号”命名的，在使用过程中如果更改字段“姓名”和“身份证尾号”数据值后，图片为什么还是显示呢？如果更改文件名后就显示不了了，我怎么设置成当字段“姓名”和“身份证尾号”发生变化后和初始值不一样了就无法再显示图片了呢？

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190228082554.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190228082633.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片操作.rar
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07910 秒, 6 次数据查询