[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته

جرب هذا في الجملة

كود :

ORDER BY NEWID()

وإذا ما نفعت استغل هذه الدالة لتعطيك مصفوفة بين رقمين عشوائية بدون تكرار
ومن الناتج أعرض الصفوف بناء على الأرقام العشوائية في المصفوفة

كود :

#Region " RangeRND (minValue As Integer, maxValue As Integer) As Array "
    Public Function RangeRND(ByVal minValue As Integer, ByVal maxValue As Integer) As Array
        If (minValue < 0) Or (minValue >= maxValue) Then Return Nothing
        minValue += 1 : maxValue += 1
        Dim mArray(maxValue - minValue) As Integer
        For i = 0 To (maxValue - minValue)
[lp]:       Randomize()
            Dim mValue As Integer = CInt(Int((maxValue * Rnd()) + minValue))
            For Each r In mArray
                If mValue = r Or mValue > maxValue Then GoTo [lp]
            Next
            mArray(i) = mValue
        Next
        For i = 0 To mArray.Length - 1
            mArray(i) -= 1
        Next
        Return mArray
    End Function
#End Region

وطيقة استخدامها كالتالي

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' mDataTable بعد تعبئة

    Dim arr() As Integer = RangeRND(1, 15)

    For Each i As Integer In arr
        Me.ListBox1.Items.Add(mDataTable.Rows(i).Item("name"))
    Next

End Sub

السلام عليكم ورحمة الله وبركاته