根据表a一条记录（人员数不固定），从而在表b中添加对应记录（几人就添加几条）

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

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

其实很简单：

Dim nms1() As String = {"日期","内容","次数","时间"}
Dim nms2() As String = {"前座_左","前座_右","后座_左","后座_右"}
DataTables("表B").DataRows.Clear()
For Each dr1 As DataRow In DataTables("表A").DataRows
   For Each nm2 As String  In nms2
        If  dr1.IsNull(nm2 & "_姓名") = False
            Dim dr2 As DataRow = DataTables("表B").AddNew
            dr2("姓名") = dr1(nm2 & "_姓名")
            dr2("类型") = dr1(nm2 & "_科目")
            For Each nm1 As String In nms1
                dr2(nm1) = dr1(nm1)
            Next
        End If
    Next
Next

2个表如何级联更新呢？

用表达式？

1、不管几个表，道理是一样的。

2、不能用表达式实现。

是我思路的短路了么？您的代码不是把表B清空，然后逐行扫描表A，提取数据么？

我们领导的要求是，点表a的1条记录，下面出来表b中成员组的记录，我从表a从提取identity做为表b的id字段

然后查询显示出来给领导看了，现在领导要求在B中更改数据的话，首先，B表一样情况（时间、次数相同的）同时更新

表a对应的记录也跟着更新……

既然思路很清楚，你就自己写一下吧，至少应该去尝试一下。