السلام عليكم بها نبدأ أي موضوع وأي نقاش أخي الكريم
جرب الحل التالي عله يفي بالغرض إن شاء العلي القدير
في موديول عادي أدرج الدالة المعرفة التالية
CODE
Function Reverse2DArray(ByVal arr)
Dim tmp, a As Long, b As Long, i As Long, j As Long
a = UBound(arr): b = LBound(arr)
For i = 0 To ((a - b) \ 2)
For j = LBound(arr, 2) To UBound(arr, 2)
tmp = arr(i + 1, j)
arr(i + 1, j) = arr(a, j)
arr(a, j) = tmp
Next j
a = a - 1
Next i
Reverse2DArray = arr
End Function
ثم في الحدث الخاص بعملية البحث قم بتعديل هذا الجزء ، حيث تقوم الدالة بعكس الصفوف الموجودة في المصفوفة لتظهر لك بالشكل الذي تريده في الليست بوكس
CODE
If ii Then
MyAr = Reverse2DArray(MyAr)
Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0
End If