عندي مشكلة واريد من سيادتكم حلها فى Filelist

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

sqls = "select max(action) as num1 from rentalvehicle1 "
If rs.State = adStateOpen Then rs.Close
rs.Open sqls, db, adOpenKeyset, adLockPessimistic
If IsNull(rs.Fields("num1")) Then
Me.Text7 = 1
Exit Sub
End If
n = rs.Fields("num1")
Me.Text7 = n + 1

وهنا action تاخذ اكبر رقم موجود في حقل الارقام الذي عندك وبامكانك وضعهة في text مثلا ومن ثم تخزن البيانات

وبالتوفيق

كلامك مظبوط وانا عامله عندي وtext بتعد الارقام مظبوط وبتحفظها بدون مشكلة لكن المشكلة فى:

- البيانات التى تظهر فى خانة filelist تكون ارقامها تصاعدية من 1 ثم 2 ثم 3 وهكذا...اريد جعلها تظهر بالعكس تصاعدي يعني من اخر رقم اضيفه

2- اذا حذفت رقم من الارقام وبالطبع علييها البيانات لا تتغير الارقام التى خلفه تلقائيا بمعنى اذا اردت حذف رقم 8 وبعدها 9 مسجل ورقم 10 مسجل لا يتغير رقم 9 الى 8 ولا 10 الى 9

ارجو ان اكون عرفت اشرحك مشكلتى...وشكرا لك على استجابتك

اذا كانت هذي Listview فا يوجد بخصائصها فرز تصاعده او تنازلي حسب العامود الذي تحدديه

كلامك صح وعملت بيه لكن لم يحدث تغير فيه كود اكيد يجب ان اكتبه عشان الارقام تقلب من الكبير الى الصغير لكن للاسف مش عارفه

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

مثال بسيط اعددته لكي عبارة Listview يتم تعبئتها بارقام وحروف تسطعين بضغط الماوس على التاب في اعلى الــ Listview ويتم الفرز حسب الحروف او الارقام في كل ضغطه يتم التبديل بين الاكبر للاصغر ومن الاصغر للاكبر

Sorting.zip