主题：在窗口显示图片问题

 测试，用下面的代码没有问题

Dim r As Row = Tables("表A").Current     '返回当前行

FileSys.CopyFile("D:\照片.bmp", "c:\" & r("样品") & ".jpg" ,True)
If FileSys.FileExists("D:\照片.bmp") Then
    FileSys.DeleteFile("D:\照片.bmp")  '则彻底删除之
End If
r("样品图片") ="c:\" & r("样品") & ".jpg"  ' 将照片列写入员工号.Jpg
r.DataRow.Load()