[atefkhalf2004]

هناك اسماء معروضة في الجريد 1
كيف اختار 3 او اربعة اسماء عشوائية ويعرضوا في الجريد2

حاولت ولكن هناك خطا
  DataGridView2.Columns(0).HeaderText = "الرقم"
        DataGridView2.Columns(1).HeaderText = "الاســم"
        DataGridView2.Columns(2).HeaderText = "الهاتـف"
        DataGridView2.Columns(3).HeaderText = "الجـوال"
        Dim rn As New Random
        Dim xlist As New List(Of Integer)
        DataGridView2.Columns.Add("ddd", "")
        DataGridView2.Rows.Clear()
        Do While xlist.Count < 3
            Dim x As Integer = rn.Next(0, ds.Tables("emp").Rows.Count)
            If Not xlist.Contains(x) Then
                xlist.Add(x)
            End If
        Loop
        xlist.Sort()
        For Each xx As Integer In xlist
            If DataGridView2.Columns.Count > 1 Then
                MsgBox("")
            End If
            DataGridView2.Rows.Add(ds.Tables("emp").Rows(xx).ItemArray)
        Next