此主题相关图片如下：qq截图20160226153549.png

上图中有这一段代码无法执行

    Case "证据保存清单"
        Forms("证据保存清单").open
        MainTable = Tables("zhengjudengjibaochunqindan")
        With CurrentTable
            Dim r As Integer
            r = .FindRow("[ajdjh] Like \'%" & Forms("目录窗口").Controls("Label2").Text.Replace("[", "@").Replace("]", "#").Replace("@", "[[]").Replace("#", "[]]") & "%\'") \'从 第一行开始查找
            If r >= 0 Then \'如果找到的话
                .Position = r \'定位到找到的行.
            End If
        End With
        If forms("证据保存清单").opened Then
            Tables("zhengjudengjibaochunqindan").AddNew()
            Tables("zhengjudengjibaochunqindan").current("ajdjh")=Tables("ybchengxu").current("ajdjh")
        End If
        Dim i As Integer
        For i  = DataTables("zhengjudengjibaochunqindan").DataRows.Count-1 To 0 Step -1
            Dim dr As DataRow = DataTables("zhengjudengjibaochunqindan").DataRows(i)
            Dim dr2 As DataRow = DataTables("zhengjudengjibaochunqindan").Find("ajdjh=\'" & dr("ajdjh") & "\' and zjqdhm=\'" & dr("zjqdhm") & "\' and _Identify <> " & dr("_Identify"))
            If dr2 IsNot Nothing Then
                dr2.Delete
            End If
        Next
我的要求是：1、点击“证据保存清单”后向“证据保存清单”表中写入相应的数据；

                 2、如果“adjdjh"与“目录窗口中的”Label2“中的内容有重复的话就不写入相应的数据，则在“证据保存清单”找到与“Label2”内容中相应的行

请各位大侠帮忙解决一下下，谢谢

 1、执行报错，还是不执行？

 2、加入msgbox，看看执行的过程是否和你预想的一样；

 3、不会做的，做个具体的例子上来测试。

1、没必要一个表添加一个数据源啊，一个数据源就够了啊。

2、请上传数据库，不然打不开你的项目。或者你做一个简单的例子发上来不要发整个项目

 无法调试，你代码至少语法逻辑上没问题。

数据库我上传不了

单独做一两个表和一两个窗口说明具体哪里出问题啊？

你的label2的值怎么来，是哪里的值？

操作顺序是什么？怎样才是正确的？