主题：[求助]新手求助！

 If e.DataCol.Name = "第二列" Then   '逻辑列
    If e.NewValue = True Then
        Dim nma() As String = {"第一列"}
        Dim nmb() As String = {"第一列"}
        Dim dr As DataRow = DataTables("表B").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    End If
End If