DATATABLE複製到另一個DATATABLE

參考來源
---

Dim mynewtable As DataTable = DirectCast(OriginalDataTable, DataTable).Clone
Dim myrows As DataRow() = DirectCast(DataGrid1.DataSource, DataTable).Select(".....")
For Each dr As DataRow In myrows
mynewtable.ImportRow(dr)
Next