السلام عليكم اساتذتي العظماء ارجوا مساعدتي انا اعمل حاليا بمشروع لادارة مختبر للتحاليل الطبية ولي فورم فيه ٤ ادوات من 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
08-02-22, 05:54 PM (آخر تعديل لهذه المشاركة : 08-02-22, 06:07 PM {2} بواسطة ابراهيم ايبو.)
تفضل هذا مثال
ولكن عبأته مباشرة بدون قاعدة البيانات
كما يمكنك تعديل الكود ليشمل معالجة الخظأ الذي ينتج عندما تضغط بالماوس في مكان الفراغ حيث لا يوجد سجل
مع تغيير الحدث الى 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
08-02-22, 06:15 PM (آخر تعديل لهذه المشاركة : 08-02-22, 06:16 PM {2} بواسطة رضوان الجماعي.)
نفس المشكله انا متصل بقاعدة بيانات بالوضع المنفصل اي عن طريق data source
تعبتك معي ولكني طبيب باطني شغوف بالبرمجه وانا اعمل على نظام لادارة المختبرات الخيرية المجانية في بلادي اليمن الجريح
اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
08-02-22, 06:25 PM (آخر تعديل لهذه المشاركة : 08-02-22, 06:29 PM {2} بواسطة ابراهيم ايبو.)
أخي اما ان تضع مثالك ليتم العمل عليه
او تنتظرني حتى أعود الى البيت واجهز لك مثال لأني في العمل حاليا
والله يادكتور انتظر منك حل مشكلة مرض السكر لدي هههههه
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
08-02-22, 07:28 PM (آخر تعديل لهذه المشاركة : 08-02-22, 08:06 PM {2} بواسطة رضوان الجماعي.)
قمت بعمل مشروع شبيه بالملوب حتى لا نتوه لان المشروع الاصلي كبير والنت ظعيف جدا عنا في اليمن
وقمت بعمل قاعدة بيانات بشكل سريع وعملت لها اتصال بالوضع المنفصل عن طريق data scuore
نصيحه بالنسبه لسكري ان تعاملت معه كا صديق صار صديقك وانت تعاملة معه كا عدو صار اكثر شي يتعبك
اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
السلام عليكم ورحمة الله وبركاته
اخي الكريم دكتور رضوان الجماعي
لن أخوض في طريقة البرمجة لديك لأني لم افهم عليها
المهم اعدت انشاء المثال ووضعت قاعدة البيانات في مجلد Debug
وأنشأت جملة اتصال بالكود مع البيانات وملات الليست الاولى والثانية
وبرمجت لك زر التراجع عن اضافة التحاليل للمريض (أي حذف اي بند بعد الاضافة)
تفضل المثال
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
08-02-22, 10:56 PM (آخر تعديل لهذه المشاركة : 08-02-22, 11:04 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
اعمل الخير وستجد مردوده فورا بإذن الله
وردني في رسالة خاصة من انسان نبيل ورجل شهم وكريم حل أخر
ايها الرجل الطيب بارك الله بك وزادك خلقا وعلما وعمرا مديدا وصحة وعافية
لي رجاء واملي فيك بعد الله كبير وهو ان تقوم بالرد في المنشورات مباشرة ليستفيد كل الاعضاء وانا سأكون ممنون جدا
أخي د.رضوان
هذا الكود يناسب تماما برمجتك وهو من الرجل الطيب
لكن انتبه الى الاحذاث
كود :
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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
09-02-22, 12:49 AM (آخر تعديل لهذه المشاركة : 09-02-22, 12:50 AM {2} بواسطة رضوان الجماعي.)
شكرا لك ولرجل الطيب هذا ما احتجته بالضبط اشكرك من أعماق قلبي والله دموعي نزلت من شدة الفرح
(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
اجل يا غالي يا رائع انت وصديقك هذا المطلوب بالضبط
اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
