主题：想在lei列发生变化的时候，将相应的图片也复制到新的目录

想在lei列发生变化的时候，将相应的图片也复制到新的目录

 

目录名为 f盘 /lie/

 

 

程序使用方法：

现在C盘 建立一个目录 目录名为 图片

 

放几个测试用的图片 到这个目录里

 

然后在f盘建立as 和as1 as2 三个目录

 

 

点程序中的 导入图片 按钮

 

程序就会自动导入数据，

 

然后修改 lie 那个列的时候 

 

会将相应的行的图片 从f盘 as目录 复制到新的目录

 

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

点击浏览该文件:管理项目12.foxdb

If e.DataCol.name = "lei" Then
    Dim fn As String = e.DataRow("cn_name")
    Dim f1, f2 As String
   
    If e.DataRow("lei") = "女装" Then
        f1 = "f:\as\" & fn & ".jpeg" '原始照片存放路径
        f2 = "c:\图片1\" & fn & ".jpeg"
    Else If e.DataRow("lei") = "男装" Then
        f1 = "f:\as1\" & fn & ".jpeg" '原始照片存放路径
        f2 = "c:\图片2\" & fn & ".jpeg"
    End If
    If FileSys.FileExists(f1) Then
        FileSys.CopyFile(f1, f2, True)
    End If
End If

非常感谢，如果有误会还请多多谅解