目标是从指定文件夹下打开当前行、产品编码列对应的文件夹，选中图片后保存“照片”列中，已经设置了“照片”列的动态保存目录，在attachment\photo文件夹下
做了一个按钮，现代码如下：
If CurrentTable.Current("产品编码") IsNot Nothing Then
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.InitialDirectory ="E:\图片库\" & CurrentTable.Current("产品编码")
If dlg.ShowDialog = DialogResult.OK Then
Dim dr As DataRow = Tables("数据库").Current.DataRow
Dim fl As String = dlg.FileName
dr.SQLInsertFile("照片",fl)
End If
Else
MessageBox.Show(CurrentTable.Current("产品编码")& "照片未找到!", "提示")
End If
点击按钮后发现
如果产品编码有对应的文件夹则能打开“E:\图片库”下对应的产品文件夹
如果产品编码为空，或者在“E:\图片库”下没有对应的产品编码文件夹，依然可以打开其他产品编码对应的文件夹，没有提示照片未找到
而且图片插入不成功。
求大神指点
加好友 
发短信
Post By：2018/5/8 14:57:00 [只看该作者]
