- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 想在lei列发生变化的时候，将相应的图片也复制到新的目录 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75449)
-- 发布时间：2015/10/8 20:51:00
-- 想在lei列发生变化的时候，将相应的图片也复制到新的目录
想在lei列发生变化的时候，将相应的图片也复制到新的目录
目录名为 f盘 /lie/
程序使用方法：
现在C盘 建立一个目录 目录名为 图片
放几个测试用的图片 到这个目录里
然后在f盘建立as 和as1 as2 三个目录
点程序中的 导入图片 按钮
程序就会自动导入数据，
然后修改 lie 那个列的时候
会将相应的行的图片 从f盘 as目录 复制到新的目录
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目12.foxdb |
[此贴子已经被作者于2015/10/8 20:52:12编辑过]
-- 发布时间：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
-- 发布时间：2015/10/9 0:45:00
--
非常感谢，如果有误会还请多多谅解