主题：又不会了－从表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。