主题：自动复制行

If e.DataCol.Name = "性别"

    Dim s As String

    Select Case e.DataRow("性别")

        Case "男"

            s = "表B"

        Case "女"

            s = "表C"

        Case "人妖"

            s = "表D"

        Case Else

            Return

    End Select

    Dim dr As DataRow = DataTables(s).AddNew

    For Each dc As DataCol In DataTables(s).DataCols

        dr(dc.Name) = e.DataRow(dc.Name)

    Next

End If