主题：在树日录中这段代码无法执行

此主题相关图片如下：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、不会做的，做个具体的例子上来测试。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:交通行政执法管理系统.foxdb

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

 

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

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

数据库我上传不了

 

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

问问题请说明白，怎么操作，出现具体什么出错的情况啊？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录窗口.foxdb

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

 

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