主题：复制行

      帮助中的自动复制行，能否做成一个窗口按钮来实现？

Dim Cols1() As String = {"日期","客户名称"}

Dim Cols2() As String = {"日期","客户名称"}

For Each dr1 As DataRow In DataTables("表A").Select("IsNull[日期] = False ") '日期不为空时

    Dim dr2 As DataRow = DataTables("表B").AddNew()

    For i As Integer = 0 To Cols1.Length -1

        dr2(Cols2(i)) = dr1(Cols1(i))

    Next

Next

日期不为空时应该怎么写？

     是否可以同时复制多行？