主题：[求助]我的代码哪里出错了

请教，我依样画葫芦的写了几句代码。在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

 

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

   

此主题相关图片如下：2015-06-03_200853.png

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

 

  这样也没有任何反应

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

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

此主题相关图片如下：2015-06-03_204930.png

单独写到按钮里面去。结果执行的全部是   找不到  

 

 

 

写到事件里面去的代码。经过测试，没有任何反应，不知道需要怎么样，才能让它有反应？  对判断列。也经过写入数据，删除数据的操作。就是没有任何反应。