는 ........... 내 솔루션은 완벽 희망
Dim DT1 As New DataTable
DT1.Columns.Add("SN1")
DT1.Columns.Add("NAME1")
DT1.Rows.Add("1", "Test1")
DT1.Rows.Add("2", "Test2")
DT1.Rows.Add("3", "Test3")
DT1.Rows.Add("4", "Test4")
DT1.Rows.Add("5", "Test5")
DT1.Rows.Add("6", "Test6")
DT1.Rows.Add("7", "Test7")
DT1.Rows.Add("8", "Test8")
DT1.Rows.Add("9", "Test9")
DT1.Rows.Add("10", "Test10")
DataGridView1.DataSource = DT1
Dim DT2 As New DataTable
DT2.Columns.Add("SN1")
DT2.Columns.Add("NAME1")
Dim I, CNT, J As Integer
Dim RS As New Random
While DT1.Rows.Count > 0
CNT = DT1.Rows.Count - 1
Try
J = RS.Next(CNT)
DT2.Rows.Add(DT1.Rows(J)("SN1"), DT1.Rows(RS.Next(CNT))("NAME1"))
Catch ex As Exception
End Try
DT1.Rows.RemoveAt(J)
End While
DataGridView2.DataSource = DT2
End Sub