想在lei列发生变化的时候，将相应的图片也复制到新的目录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 想在lei列发生变化的时候，将相应的图片也复制到新的目录

共有2691人关注过本帖树形打印复制链接主题：想在lei列发生变化的时候，将相应的图片也复制到新的目录

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/8 21:03:00 [显示全部帖子]

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

下一主题 >> << 上一主题

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