主题：[求助]有没有类似生单的代码?

Select Case e.DataCol.Name
    Case  "第一列"
        If e.DataRow.GetChildRows("表B").Count = 0 Then
            Dim dr As DataRow = DataTables("表B").AddNew()
            dr("第一列") = e.DataRow("第一列")
            dr("第二列") = e.DataRow("第二列")
            dr("第三列") = e.DataRow("第三列")
        End If
End Select

意思是第一列有变化的话，如果表B是空表，就自动添加行，并且将表A中第一列，第二列，第三列的数据加载到表B同样的这三列中去。