主题：[求助]不在一个内进行单元格合并问题

表A中的第一列中的文字=表B的第一列中的文字+表B的第二列中的文字

如何写入树目录中中写这代码

请帮忙解决，谢谢

我要在以下代码中插入：

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 '定位到找到的行.
            Else
                Tables("zhengjudengjibaochunqindan").AddNew()
                Tables("zhengjudengjibaochunqindan").current("ajdjh")=Tables("ybchengxu").current("ajdjh")
                Tables("zhengjudengjibaochunqindan").current("cz")=Tables("ybchengxu").current("clxx_cz")
                Tables("zhengjudengjibaochunqindan").current("czdz")=Tables("ybchengxu").current("clxx_czdz")
                Tables("zhengjudengjibaochunqindan").current("czlxdh")=Tables("ybchengxu").current("clxx_czlxdh")
            End If
        End With
        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 _Identify <> " & dr("_Identify"))
            If dr2 IsNot Nothing Then
                dr2.Delete
            End If
        Next
        If forms("证据保存清单").opened Then
            forms("证据保存清单").controls("Label2").text=Tables("zhengjudengjibaochunqindan").current("ajdjh")
        End If
        Tables("zhengjudengjibaochunqindan").Current.Save()

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

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

证据保存清单下的“jscldd”=jgbmwh表下的“jigouquanchung”+jgbmwh表下的“jigoudizgi”