请教，我依样画葫芦的写了几句代码。在datacolchanging里面输入以下代码

   For Each dr As Row In CurrentTable.Rows
            Dim str1 As String =dr("头像照片")
            If FileSys.FileExists("F:\\小陶\\照片" & str1)  = True  Then
                dr("判断") = "找到"
            Else
               
                dr("判断") = Nothing
            End If
        Next

问题来了，没有任何反应，不知道出错在哪儿？

 代码没问题，合成的路径改一下，路径不能有错

FileSys.FileExists("F:\\小陶\\照片\\" & str1) 

FileSys.FileExists("F:\\小陶\\照片\\" & str1) 

我即使修改为

FileSys.FileExists("F:\\小陶\\照片\\" & str1 & "") 也不行

我后来索性修改为：

 Dim lj As String = ProjectPath
        For Each dr As Row In CurrentTable.Rows
        Dim str1 As String =dr("头像照片")
            If FileSys.FileExists("" & lj & "Attachments\\" & str1 & "")  = True Then

                 dr("判断") = "找到"
            Else
               
                dr("判断") = Nothing
            End If
        Next

这样也不行。到底咋了啊。哎

我实际放的是  F:\\小陶\\照片\\  这里

后来我想。即使attachments里面。不放任何文件，那么总有nothing输出的啊。  为什么都没有任何反应？

我修改为：

 Dim lj As String = ProjectPath
        For Each dr As Row In CurrentTable.Rows
        Dim str1 As String =dr("头像照片")
            If FileSys.FileExists("" & lj & "Attachments\\" & str1 & "")  = True Then
                dr("判断") = "找到"
            Else
               
                dr("判断") = "找不到"
            End If
 Next

  这样也没有任何反应

 那说明你的表没有数据

Dim lj As String = ProjectPath
For Each dr As DataRow In CurrentTable.DataTable.dataRows
    Dim str1 As String =dr("头像照片")
    If FileSys.FileExists(lj & "Attachments\\" & str1)  = True Then
        dr("判断") = "找到"
    Else
       
        dr("判断") = "找不到"
    End If
Next

我的头像照片列有数据啊。我截图里面也很多的呢。

刚测试了，试用了您的代码。还是没有任何反应。 难道不应该写在datacolchanging里面？