主题：[求助]取值获取定位问题

 那你的图片控件不要绑定列，直接赋值吧。

Dim r As Row = Tables("表A").Current
If r IsNot Nothing
    Dim idx As Integer = iif(r.Index>0, r.Index-1, 0)
    r = Tables("表A").Rows(idx)
    Dim p As String = ProjectPath & "Attachments/" & r("第一列")
    If FileSys.FileExists(p)
        e.Form.Controls("PictureBox1").Image = getimage(p)
    Else
        e.Form.Controls("PictureBox1").Image = Nothing
    End If
End If