1. جدول به بعض الادوية الثابته
2.جدول اخر به حقل لاضافة اسم المريض وكود المريض والتاريخ وحقل يتم فيه اضافة الدواء + تعديل في الاسم باضافة حرف اوماشابه
عند اضافة ادويه للمريض يتم اضافة كل البيانات السابقه مره اخري مع تعديل فقط في اسم الدواء هل هذه الطريق صحيحه
المشكله في الصفوف الفارغه والتي تحدث مشكله عند عمل استعلام او عمل التقارير
. مرفق قاعدة البيانات
http://www.mediafire.com/download/266zhk.../mdb.accdb
يا مكي اشرح بالكود و كيف هي طريقة الربط
لم افهم ابوليلي اي اكود تريد هل كود التقرير ام كود الادراج
المشكلة انا مو فاهم طلبك او مشكلتك فين
بمعنى اخر لو كان في مشكلة عندك بكود ما اطرحه
السؤال هل طريق الاضافه هذه صحيحه تبعا لقاعدة البيانات المرفقه
ثانيا: المشكله تكمن عند عمل استعلام فاجد الصفوف تتكرر في التقرير او حتي في الاستعلام ذاته ويستمر التكرار حتي تتساوي جميع الاعمدة.
انت رافع قاعدة بيانات بس , هذا ما جعلني اطلب الكود المسؤول عن الاضافة و عن طريقة الربط
و ماهو الاستعلام المسؤول عن جلب البيانات
كود الاضافه للحق الاول
d.Dataedit(String.Format("insert into ptsense(PT_Name,PT_Date,PT_Code,sample,G,coun,comm,organism,sens)values('{0}',#{1}#,{2},'{3}','{4}','{5}','{6}','{7}','{8}')", txtname.Text, Textdate.Text, Textcode.Text, Comsample.Text, Comstain.Text, Txtcount.Text, Txtcomm.Text, Comorganism.Text, x))
كود الاضافه للحقل الثاني
d.Dataedit(String.Format("insert into ptsense(PT_Name,PT_Date,PT_Code,sample,G,coun,comm,organism,resist)values('{0}',#{1}#,{2},'{3}','{4}','{5}','{6}','{7}','{8}')", txtname.Text, Textdate.Text, Textcode.Text, Comsample.Text, Comstain.Text, Txtcount.Text, Txtcomm.Text, Comorganism.Text, x))
كود التقرير
Dim dt As DataTable = New DAL().selectdatatable(String.Format("SELECT PT.PT_Code, PT.age_sex2, PT.fullname2, Ptsense.PT_Date, DR.Dr_Name, Ptsense.sample, Ptsense.G, Ptsense.coun, Ptsense.comm, Ptsense.organism, Ptsense.sens, Ptsense.resist, labdetails.labnme, labdetails.labspecial, labdetails.labadress, labdetails.labphone, labdetails.labtime, labdetails.lablogo, labdetails.labprint, labdetails.labnameenglish, labdetails.labspecialenglish FROM labdetails, (PT INNER JOIN Ptsense ON PT.PT_Code = Ptsense.PT_Code) INNER JOIN DR ON PT.DR_Code = DR.Dr_Code WHERE (((PT.PT_Code)={0}) AND ((Ptsense.PT_Date)=#{1}#));", Txtcode.Text, DateTimePicker1.Value.ToString("dd/MM/yyyy")))
لذلك سئلت حضرتك هل هذه الطريق صحيحه . وما البديل
والفكره في انني في الفورم يوجد زرارين واحد لاضافة اشياء الي الحقل الاول والثاني لاضافة اشياء الي الحقل الثاني
فاذا فترضت اني قمت بادخال خمس سجلات الي الجدول في الحقل الاول ثم اردت ادخل ثلاث سجلات الي الحقل الاخر ماذا افعل
لاحظ انني لايمكنني التعديل
لماذا هذا السيناريو في الادخال , و ما الذي تنوي الوصول اليه
انا اعتقد ان مشكلتك بسيطة لكن ينقصها الشرح المناسب , او الفهم المناسب من قبلي
الى الان لم استطع فهمك ؟؟؟