专家坐堂-批量选择图片到控件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  批量选择图片到控件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120961)

--  作者：yangwenghd
--  发布时间：2018/6/27 9:46:00
--  批量选择图片到控件

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
FileSys.CopyFile(dlg.FileName, ProjectPath & "库存\\产品图片\\" & FileSys.GetName(dlg.FileName), True)
Tables("产品编辑窗口_Table1").Current("属性_图片") = FileSys.GetName(dlg.FileName)
End If

怎么点击按钮弹出窗口，批量选中图片，然后在复制到路径的文件夹内，添加的图片名词现在是属性_图片列，感谢感谢

--  作者：有点甜
--  发布时间：2018/6/27 10:08:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ls = Tables("产品编辑窗口_Table1").Current.DataRow.lines("属性_图片")
    For Each f As String In dlg.FileNames
        FileSys.CopyFile(f, ProjectPath & "库存\\产品图片\\" & FileSys.GetName(f), True)
        ls.add(FileSys.GetName(f))
    Next
    Tables("产品编辑窗口_Table1").Current.DataRow.lines("属性_图片") = ls
End If

--  作者：yangwenghd
--  发布时间：2018/6/27 10:54:00
--
能帮忙看看吗？一列是文件的路径，另一列是文件的名称，怎么让图片浏览器绑定图片列后显示出来啊，感谢感谢

此主题相关图片如下：qq截图20180627105254.jpg

--  作者：有点甜
--  发布时间：2018/6/27 11:13:00
--

currentChanged事件

If e.Table.current IsNot Nothing Then
    e.Table.DataTable.datacols("属性_图片").DefaultFolder = e.Table.current("属性_图片文件夹")
End If

--  作者：yangwenghd
--  发布时间：2018/6/27 16:03:00
--

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ls = Tables("产品编辑窗口_Table1").Current.DataRow.lines("属性_图片")
For Each f As String In dlg.FileNames
\'FileSys.CopyFile(f, ProjectPath & "库存\\产品图片\\" & FileSys.GetName(f), True)
FileSys.CopyFile (f, Tables("产品编辑窗口_Table1").Current("属性_图片文件夹") & "\\" & FileSys.GetName(f), True)
ls.add(FileSys.GetName(f))
Next
Tables("产品编辑窗口_Table1").Current.DataRow.lines("属性_图片") = ls
End If

这个可以在点开按钮默认点开的文件路径为  产品编辑窗口_Table1 选择的行的文件路径列吗？感谢感谢

--  作者：有点甜
--  发布时间：2018/6/27 16:28:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器
dlg.MultiSelect = True
dlg.InitialDirectory = Tables("产品编辑窗口_Table1").Current("属性_图片文件夹")

--  作者：yangwenghd
--  发布时间：2018/6/27 16:40:00
--

If e.Table.current IsNot Nothing Then
e.Table.DataTable.datacols("编辑信息_窗口图片").DefaultFolder = e.Table.Current("编辑信息_文件路径") & "\\窗口图片\\"
End If

\'If e.Table.current IsNot Nothing Then
\'e.Table.DataTable.datacols("编辑信息_窗口图片").DefaultFolder = e.Table.Current("编辑信息_文件路径") & "\\详解图片\\"
\'End If

为什么在一个窗口加入两个浏览器后，这个加上两段代码就不能使用了啊，感谢感谢

--  作者：yangwenghd
--  发布时间：2018/6/27 16:50:00
--
能帮忙看看吗？为什么说找不到平台管理窗口_Table2呢？
感谢感谢
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器
dlg.MultiSelect = True
dlg.InitialDirectory = Tables("平台管理窗口_Table2").Current("属性_图片文件夹") \'设置优先的路径\'
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ls = Tables("平台管理窗口_Table1").Current.DataRow.lines("编辑信息_窗口图片")
For Each f As String In dlg.FileNames
FileSys.CopyFile (f, Tables("平台管理窗口_Table1").Current("编辑信息_文件路径") & "\\窗口图片\\" & FileSys.GetName(f), True)
ls.add(FileSys.GetName(f))
Next
Tables("平台管理窗口_Table1").Current.DataRow.lines("编辑信息_窗口图片") = ls
End If

此主题相关图片如下：qq截图20180627164855.jpg

--  作者：有点甜
--  发布时间：2018/6/27 16:51:00
--

以下是引用yangwenghd在2018/6/27 16:40:00的发言：

If e.Table.current IsNot Nothing Then

e.Table.DataTable.datacols("编辑信息_窗口图片").DefaultFolder = e.Table.Current("编辑信息_文件路径") & "\\窗口图片\\"

End If

\'If e.Table.current IsNot Nothing Then

\'e.Table.DataTable.datacols("编辑信息_窗口图片").DefaultFolder = e.Table.Current("编辑信息_文件路径") & "\\详解图片\\"

\'End If

为什么在一个窗口加入两个浏览器后，这个加上两段代码就不能使用了啊，感谢感谢

上传具体实例说明。

--  作者：有点甜
--  发布时间：2018/6/27 16:52:00
--

以下是引用yangwenghd在2018/6/27 16:50:00的发言：
能帮忙看看吗？为什么说找不到平台管理窗口_Table2呢？
感谢感谢

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" \'设置筛选器

dlg.MultiSelect = True

dlg.InitialDirectory = Tables("平台管理窗口_Table2").Current("属性_图片文件夹") \'设置优先的路径\'

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

Dim ls = Tables("平台管理窗口_Table1").Current.DataRow.lines("编辑信息_窗口图片")

For Each f As String In dlg.FileNames

FileSys.CopyFile (f, Tables("平台管理窗口_Table1").Current("编辑信息_文件路径") & "\\窗口图片\\" & FileSys.GetName(f), True)

ls.add(FileSys.GetName(f))

Next

Tables("平台管理窗口_Table1").Current.DataRow.lines("编辑信息_窗口图片") = ls

End If

此主题相关图片如下：qq截图20180627164855.jpg

dlg.InitialDirectory = Tables("平台管理窗口_Table1").Current("属性_图片文件夹") \'设置优先的路径\'