主题：如何把A表中其中一个单元格的数据提取到表B中？？

重复运行时，一直在提取空值的数据，能不能把这个改掉

不管表A中第二例的数据中，哪一项，是不是空值，都不再运行，因为，第一次运行时已经运行过了，只有增加新数据时，只提取新的数据

 

 

执行下面的代码，看弹出什么，请做具体例子发上来测试。

 

For Each r As Row In Tables("表a")
    Dim s() As String = r("第二列").replace(vbcr, "").split(vblf)
    If s.length >= 2 Then
        Dim s0 = s(0).replace("姓名:","")
        Dim s1 = s(1).replace("性别:","")

        msgbox(s0 & "|" & s1 & "|")
        Dim fdr As DataRow = DataTables("表B").find("姓名='" & s0 & "' and 性别='" & s1 & "'")
        If fdr Is Nothing Then
            fdr = DataTables("表B").addnew
        End If
        fdr("姓名") = s0
        fdr("性别") = s1
    End If
Next

此主题相关图片如下：1519307021(1).png

弹出来很多小窗

也不对

请做具体例子发上来测试

其实，我觉的可以在以上代码后，加一段筛选重复数据并删除的代码。

 

请做具体例子发上来测试

 

此主题相关图片如下：22-34-50-201822221243548319.png

把A表的数据提取到表B中，已经基本大概实现了，如果，没法在提取中去重，不妨在提取后的这一个图中，实现把重复的筛选出并删掉。

 

请做具体例子发上来测试，原来的代码本来就是不会重复添加输入据的，请做具体例子发上来测试。

 

删除重复参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107764&skin=0

 

 

原来的代码是不会有重复提取表A中的数据，但是，如果表A的提取数值中有空值出现，不管运行多少次，他舍一直提取空值所在的数据，如何把这个改掉！

要说多少遍？请做具体项目发上来测试