主题：求 克隆多行功能...

克隆选定的多行：

Dim t As Table = Currenttable
For i As Integer = t.TopRow To t.BottomRow
    Dim dr As Datarow = t.Datatable.Addnew()
    For Each c As Col In t.Cols
       dr(c.Name) = t.Rows(i)(c.Name)
    Next
Next