以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72593)
--  作者：HJG_HB950207
--  发布时间：2015/8/2 12:39:00
--  窗口代码问题
请教老师：
    数据表有姓名，照片两列
    图片存在D:\\REPORT目录中（图片名以姓名列的姓名为文件名，格式为JPG）
    想在窗口中，编辑一按钮，使图片（备注型）用d:\\RSGL\\对应图片存盘
--  作者：大红袍
--  发布时间：2015/8/2 12:55:00
--  

 想修改它的存放路径？

 

http://www.foxtable.com/help/topics/2043.htm

 
--  作者：HJG_HB950207
--  发布时间：2015/8/2 13:03:00
--  
不是修改路径，图片已存在D:\\REPORT,只想通过按钮把图片批量导入该列（图片文件名与表姓名列同）。
--  作者：HJG_HB950207
--  发布时间：2015/8/2 13:09:00
--  
或者通过DATACOLAHNANGED 判断如果D:\\REPORTZHONG存在与姓名列相同的JPG文件,就导入图片列。
--  作者：大红袍
--  发布时间：2015/8/2 13:18:00
--  
For Each f As String In FileSys.GetFiles("d:\\")
    Dim ifo As new FileInfo(f)
    Dim name As String = ifo.name.Replace(ifo.Extension, "")
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = \'" & name & "\'")
    If fdr IsNot Nothing Then
        fdr("第二列") = ifo.Name
        FileSys.CopyFile(f, "d:\\test\\" & ifo.Name)
    End If
Next
--  作者：HJG_HB950207
--  发布时间：2015/8/2 13:23:00
--  
谢谢！