主题：又不会了－从表B往表A添加内容

表B有窗口按钮，老师们请帮修正按钮代码：

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

点击浏览该文件:从表b往表a添加内容.table

表B中有详细说明！ 表B的内容（包括）空行都不能删除的情况下。
按钮中的代码：

Dim km As string = Tables("表B").Current("第一列")
Dim ykm As DataRow = DataTables("表A").Find("[第一列]  = '" & km & "'")
    if ykm Is Nothing   Then
        If MainTable.Name = "表B"
            Dim f As New Filler
            f.SourceTable = DataTables("表B")
            f.SourceCols = "第一列,第二列,第三列,第四列,第五列,第六列,第七列"
            f.DataTable = DataTables("表A")
            f.DataCols = "第一列,第二列,第三列,第四列,第五列,第六列,第七列"
            f.Fill() '填充数据
        End If
    End If

说明：有时代码不执行，有时又执行？ 执行起来会把所有行都添加的表A。

是不是想这样？

Dim km As string = Tables("表B").Current("第一列")
Dim ykm As DataRow = DataTables("表A").Find("[第一列]  = '" & km & " '")
if ykm Is Nothing   Then
    If MainTable.Name = "表B" And Tables("表B").Current("第一列") IsNot Nothing Then
        Dim f As New Filler
        f.SourceTable = DataTables("表B")
        f.DataTable = DataTables("表A")
        f.Filter = "[第一列] = '" & km & "'"
        f.Fill() '填充数据
    End If
End If

第二句代码感觉是多余的，因为只需在filler中加上ExcludeExistValue就可以了。

czy版主： 你的代码没反应啊？？？请打开1楼文件试一试好吗～

要把指定列的内容添加到表A啊。

我可以呀。

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

点击浏览该文件:管理项目4.table

哦～ 是我漏掉来源列和目标列了，完全照搬你2漏的代码了，不好意思。
不过，你的代码是把当前行的内容添加到表A，如果有n行（不一定连续）表A没有的内容，如何一次全部都添加过去？

Dim f As New Filler
f.SourceTable = DataTables("表B")
f.SourceCols = "第一列,第二列,第三列,第四列,第五列,第六列,第七列"
f.DataTable = DataTables("表A")
f.DataCols = "第一列,第二列,第三列,第四列,第五列,第六列,第七列"
f.ExcludeExistValue = true
f.ExcludeNullValue =true
f.Fill() '填充数据

好强啊！～ 谢谢！
慢慢学习了。

呵呵，下面的代码，效率会高一些：

For Each dr1 As DataRow In DataTables("表B")
    Dim Dr2 As DataRow = DataTables("表A") .AddNew()
    For Each dc As DataCol In DataTables("表B").DataCols
       dr2(dc.name) = dr1(dc.name)
    Next
Next