列属性存放目录设置的是“D:\lhd”，而选择的目录是“e:\photo”，不是同一个目录肯定不能显示。另外PictureViewer设置的存放目录必须和列属性的设置一致。
要么把存放目录改为“e:\photo”
要么把图片复制到“D:\lhd”
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
'挂接代码
For Each r As Row In Tables("员工").Rows
Dim name As String = r("员工编号") & ".jpg"
If FileSys.FileExists(dlg.SelectedPath & "\" & name ) Then
FileSys.CopyFile(dlg.SelectedPath & "\" & name, DataTables("员工信息表").DataCols("照片").DefaultFolder & "\" & name )
r("照片") = name
End If
Next
Tables("员工").Save
End If
加好友 
发短信
Post By：2020/5/11 9:23:00 [显示全部帖子]
