منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نقل البيانات من DataList1 الى DataList2 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : نقل البيانات من DataList1 الى DataList2 (/showthread.php?tid=19123)

الصفحات: 1 2 3

نقل البيانات من DataList1 الى DataList2 - alfakeehy - 06-02-17

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

لو سمحتو اخواني
بغيت كود :
عند الضغط على اسم معين في DataList1 ينتقل مباشرة الى DataList1
يعني اختار من قائمة DataList1 وانقلها الى DataList
وبعدها اضغط على زر الحفظ وتحفظ في قاعدة بيانات اكسس
اذا مو واضح راح ارفق مشروع لذلك
واذا ممكن لو تكرمتو اعطوني الكود
طبعا اعمل ADO

بارك الله لكم في علمكم

تحياتي الوردية

RE: نقل البيانات من DataList1 الى DataList2 - sendbad100 - 06-02-17

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

الافضل ترفق مثال يحتاج فقط التعديل المطلوب

RE: نقل البيانات من DataList1 الى DataList2 - alfakeehy - 06-02-17

السلام عليكم
شكرا لك اخي الكريم على تواصلك
وقد تم ادراج المرفق للتعديل عليه
بارك الله لكم .
ملاحظة

نقل البيانات من DataGrid1 الى DataList2

تقبلوا تحياتي وامتناني

RE: نقل البيانات من DataList1 الى DataList2 - sendbad100 - 06-02-17

الجداول الحالية لا تكفي 

تحتاج عمل فاتورة

هي كالاتي :-  
الجدول الاول تحفظ فيه اسم صاحب الطلب وتاريخ الفاتورة ومبلغ الفاتورة  نقد او اجل

والجدول الثاني يحتي على الطلبات كل صنف في صف  وتحفظ معه رقم الفاتورة  والمبلغ والكمية وهكذا


بحيث انك تستطيع عرض الفاتورة وكل الاصناف الملحقة بها عن طريق رقمها  


لن يسعني الوقت لتطبيق مثال او تعديل مثالك ولكن ابحث في قسم الامثلة والمشاريع وستجد الفكرة

واتمنى من الاخوة من لديه الوقت ان يساعدك بما يستطيع

RE: نقل البيانات من DataList1 الى DataList2 - alfakeehy - 06-02-17

اهلا وسهلا اخي

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

RE: نقل البيانات من DataList1 الى DataList2 - sendbad100 - 06-02-17

ممكن تغير  DBList  ب listbox 

وتستخدم الكود التالي  DataGrid1_Click  كما هو واضح في الكود 


كود :
Private Sub DataGrid1_Click()

Me.ListBox1.AddItem Me.DataGrid1.Text

End Sub


RE: نقل البيانات من DataList1 الى DataList2 - alfakeehy - 07-02-17

يعطيك العافيه اخي
بس للاسف ماضبطت معي الله يوفقك
اذا ممكن تطبقه على مثالي الله يسلمك

شاكر ومقدر مجهودك

RE: نقل البيانات من DataList1 الى DataList2 - alfakeehy - 07-02-17

إقتباس : ممكن تغير  DBList  ب listbox

وتستخدم الكود التالي  DataGrid1_Click  كما هو واضح في الكود


كود :
Private Sub DataGrid1_Click()

Me.ListBox1.AddItem Me.DataGrid1.Text

End Sub

الف شكر لك اخي الكريم
تم الحل ابشرك ولله الحمد وهذا بفضل الله تعالى ثم بمجهودكم
وكان الخلل في الكود الذي اعطيتني هو (ListBox1) والصحيح (List1) فقط بدون بوكس
Me.List1.AddItem Me.DataGrid1.Text   ( حتى يستفيد منه غيري)

اسال الله العظيم ان ينر دربك ويرزقك الاخلاص والبر
شاكر ومقدر

RE: نقل البيانات من DataList1 الى DataList2 - sendbad100 - 07-02-17

الحمد لله والشكر لله من قبل ومن بعد
اسف اذا كان هناك خطاء
احيانا نكتب الكود بدون برنامج لانه من جهاز العمل ... ولا يوجد فيه فجوال ... او من الجوال

RE: نقل البيانات من DataList1 الى DataList2 - alfakeehy - 07-02-17

الله يبارك فيك ياغالي
بس واجهتني مشكله بسيطه

وهي
عند الضغط على الداتاقريد مثلا على ثالث اسم فيه ينتقل اول اسم مؤشر عليه ماينتقل اللي اخترته ينتقل في الضغطه الثانية

وكمان الحفظ من ليست بوكس رفض يحفظ البيانات بهذا الكود طبعا


Rs.AddNew
Rs!N1 = Text1.Text
Rs!N2 = ListBox1
Rs.Update
MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", vbQuestion, " ÍÝÙ"

تقبلو تحياتي واحترامي واسف على ازعاجكم

بصراحه اول مرة اتعامل مع الليست بوكس في نقل البيانات لها والحفظ