السلام عليكم اساتذتي العظماء ارجوا مساعدتي انا اعمل حاليا بمشروع لادارة مختبر للتحاليل الطبية ولي فورم فيه ٤ ادوات من listbox حيث listbox1 متصله بقاعدة بيانات اكسس بالوضع المفصل عن طريقdatascre وهي عباره عن جداول لاسماء الفحوصات ويقابله listbox 2متصل ايضن بنفس الطريقه وفيه تسعيرة الفحص اريد عن النقر على اسم الفحص يتم نقله الى listbox3 والقيمه التي تقابله الى listbox4 ولكم خالص الحب والتقدير .
السلام عليكم ورحمة الله وبركاته
تفضل اخي رضوان
كود :
Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
ListBox3.Items.Add(ListBox1.SelectedItem)
Dim AA As Integer
AA = ListBox1.SelectedIndex
ListBox4.Items.Add(ListBox2.Items(AA))
End Sub
استاذي المميز والغالي كالمحاولات السابقه بدل من ان يقوم بنقل العناصر من اليستبوكس١ واليستبوكس٢ الى ٣و٤ يضهر في ثلاثه واربعه system.Data.DataRow
تفضل هذا مثال
ولكن عبأته مباشرة بدون قاعدة البيانات
كما يمكنك تعديل الكود ليشمل معالجة الخظأ الذي ينتج عندما تضغط بالماوس في مكان الفراغ حيث لا يوجد سجل
مع تغيير الحدث الى
MouseClick كالتالي
كود :
Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
If ListBox1.IndexFromPoint(e.Location) < 0 Then
Exit Sub
Else
ListBox3.Items.Add(ListBox1.SelectedItem)
Dim AA As Integer
AA = ListBox1.SelectedIndex
ListBox4.Items.Add(ListBox2.Items(AA))
End If
End Sub
نفس المشكله انا متصل بقاعدة بيانات بالوضع المنفصل اي عن طريق data source
تعبتك معي ولكني طبيب باطني شغوف بالبرمجه وانا اعمل على نظام لادارة المختبرات الخيرية المجانية في بلادي اليمن الجريح
أخي اما ان تضع مثالك ليتم العمل عليه
او تنتظرني حتى أعود الى البيت واجهز لك مثال لأني في العمل حاليا
والله يادكتور انتظر منك حل مشكلة مرض السكر لدي هههههه
قمت بعمل مشروع شبيه بالملوب حتى لا نتوه لان المشروع الاصلي كبير والنت ظعيف جدا عنا في اليمن
وقمت بعمل قاعدة بيانات بشكل سريع وعملت لها اتصال بالوضع المنفصل عن طريق data scuore
نصيحه بالنسبه لسكري ان تعاملت معه كا صديق صار صديقك وانت تعاملة معه كا عدو صار اكثر شي يتعبك
السلام عليكم ورحمة الله وبركاته
اخي الكريم دكتور رضوان الجماعي
لن أخوض في طريقة البرمجة لديك لأني لم افهم عليها
المهم اعدت انشاء المثال ووضعت قاعدة البيانات في مجلد Debug
وأنشأت جملة اتصال بالكود مع البيانات وملات الليست الاولى والثانية
وبرمجت لك زر التراجع عن اضافة التحاليل للمريض (أي حذف اي بند بعد الاضافة)
تفضل المثال
السلام عليكم ورحمة الله وبركاته
اعمل الخير وستجد مردوده فورا بإذن الله
وردني في رسالة خاصة من انسان نبيل ورجل شهم وكريم حل أخر
ايها الرجل الطيب بارك الله بك وزادك خلقا وعلما وعمرا مديدا وصحة وعافية
لي رجاء واملي فيك بعد الله كبير وهو ان تقوم بالرد في المنشورات مباشرة ليستفيد كل الاعضاء وانا سأكون ممنون جدا
أخي د.رضوان
هذا الكود يناسب تماما برمجتك وهو من الرجل الطيب
لكن انتبه الى الاحذاث
كود :
Private Sub ListBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseUp, ListBox2.MouseUp
If ListBox1.IndexFromPoint(e.Location) < 0 Then
Exit Sub
Else
Dim AA As Integer
AA = ListBox1.SelectedIndex
If Not ListBox4.Items.Contains(ListBox2.Items(AA)("test")) Then
ListBox3.Items.Add(ListBox1.Items(AA)("PRICY"))
ListBox4.Items.Add(ListBox2.Items(AA)("test"))
End If
End If
End Sub
شكرا لك ولرجل الطيب هذا ما احتجته بالضبط اشكرك من أعماق قلبي والله دموعي نزلت من شدة الفرح
(08-02-22, 10:56 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اعمل الخير وستجد مردوده فورا بإذن الله
وردني في رسالة خاصة من انسان نبيل ورجل شهم وكريم حل أخر
ايها الرجل الطيب بارك الله بك وزادك خلقا وعلما وعمرا مديدا وصحة وعافية
لي رجاء واملي فيك بعد الله كبير وهو ان تقوم بالرد في المنشورات مباشرة ليستفيد كل الاعضاء وانا سأكون ممنون جدا
أخي د.رضوان
هذا الكود يناسب تماما برمجتك وهو من الرجل الطيب
لكن انتبه الى الاحذاث
كود :
Private Sub ListBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseUp, ListBox2.MouseUp
If ListBox1.IndexFromPoint(e.Location) < 0 Then
Exit Sub
Else
Dim AA As Integer
AA = ListBox1.SelectedIndex
If Not ListBox4.Items.Contains(ListBox2.Items(AA)("test")) Then
ListBox3.Items.Add(ListBox1.Items(AA)("PRICY"))
ListBox4.Items.Add(ListBox2.Items(AA)("test"))
End If
End If
End Sub
اجل يا غالي يا رائع انت وصديقك هذا المطلوب بالضبط