تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد
#1
السلام عليكم
عندي داتا غريد (صورة رقم 1)   كما في الصورة المرفقة اريد ان اكتب أول حرف من اسم الدواء في خلية Tablet  مثلا حرف A يظهر لي جدول آخر  (صورة رقم 2)  مباشرة تحته و يحتوي على البيانات المخزنة لكل الأدوية التي تبدأ من حرف A في قاعدة البيانات  ثم اضغط على سطر الذي يجتوي الداوء Amoxicillin  مثلا تنتقل البيانات إلى الصورة رقم 1 كل معلومة في خانة معينة ثم يختفي الجدول الثاني

انظر الصورة المرفقة  للتوضيح

2.12.0.0


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم
اولا ستضع داتاغرايد جديدة  رقم 2 تحت الاساسية وستجعل قيمة الاظهار لها  False اما من الخصائص
 او مع تحميل الفورم بهذا الكود
كود :
DataGridView2.Visible = False

ثم تقوم بعمل استعلام بحث طبعا الامريعود اليك بحقل البحث 
هنا في هذا الكود البحث بحقل الاسم ..... غير الاسماء واسم الجدول حسب الجدول واسماء مربعات النصوص التي لديك واسم مربع نص البحث
كود :
Private Sub Txt_Searsh_TextChanged(sender As Object, e As EventArgs) Handles Txt_Searsh.TextChanged
       'البحث عن البيانات ب وفق مربع البحث بالاسم  
       Dim Sershda As New SqlDataAdapter()
       Dim Searshdt As New DataTable()
       Try
           Searshdt.Clear()
           ' غير جملة الاستعلام حسب الجدول لديك
           Sershda = New SqlDataAdapter("select * from The_Books Where Title like '%" & Txt_Searsh.Text & "%'", cn)
           Sershda.Fill(Searshdt)
           DataGridView2.Visible = True
           DataGridView2.DataSource = Searshdt
       Catch ex As Exception
       End Try
   End Sub
ثم في حدث CellMouseClick ضع هذا الكود بحيث تنقر على حلية من الصف الذي تريده عندها ستنتقل بيانات الصف الى مربعات النصوص وتحتفي الداتا غرايد الثانية بهذا الكود
كود :
Private Sub DataGridView2_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView2.CellMouseClick
       Txt_ID.Text = DataGridView2.CurrentRow.Cells("id").Value.ToString()
       Txt_Title.Text = DataGridView2.CurrentRow.Cells("Title").Value.ToString()
       Txt_Author.Text = DataGridView2.CurrentRow.Cells("Author").Value.ToString()
       Dtp_Publish_Date.Value = DataGridView2.CurrentRow.Cells("Publish_Date").Value ' اذاة الدات تايم بيكر
       Txt_Page.Text = DataGridView2.CurrentRow.Cells("Page").Value.ToString()
       DataGridView2.Visible = False
   End Sub
شكرا لك على سؤالك الواضح حيث توصيفك لما تريد هو خوارزمية صحيحة للحل
رمضان كريم والله اكرم
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#3
شكرا لك عزيزي ابراهيم على شرحك المميز .
هل يمكن تطبيق فكرة أننا نقوم وضع داتاغريد في فورم مستقل ثم استدعاءه عن طريق كود عندما نكتب شيئا على خانة البحث في الصورة رقم 1 و يظهر مباشرة تحت الصورة 1 و نفس الموازاة ثم اخفائه بمجرد النقر عليه
الرد
تم الشكر بواسطة: asemshahen5 , كريم عبودي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اضافة كومبوبكس داخل داتاقريد فيو معبئ من قاعدة البيانات KIKO1992 2 69 02-12-20, 11:50 AM
آخر رد: KIKO1992
  كلمة مكتوبة داخل نص البحث؟ Abuzakria 5 166 01-12-20, 04:27 PM
آخر رد: Abuzakria
  [VB.NET] كيفية ادخال البيانات عن طريق الdatagridviwe ليتم حفظها في sql fadi78 0 58 01-12-20, 02:00 PM
آخر رد: fadi78
  [سؤال] فلتره البيانات في الداتا بيز حسن الجلب 4 113 29-11-20, 12:47 AM
آخر رد: Anas Mahmoud
  [VB.NET] إستعلام يمكنني في البحث في سطور الخلية sniperjawadino 5 258 25-11-20, 04:54 PM
آخر رد: sniperjawadino
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 5 749 16-11-20, 12:10 AM
آخر رد: sherf
Question [VB.NET] كيف يمكن برمجة زر البحث بأبسط الطرق ؟؟ Microformt 0 116 13-11-20, 04:16 PM
آخر رد: Microformt
Question [VB.NET] كيف يتم إدراج نتائج البحث في textbox ؟؟ Microformt 3 161 10-11-20, 07:14 PM
آخر رد: mmali127
  [VB.NET] طلب عمل جدول حصص مدرسي سيد درويش 2 211 10-11-20, 01:27 AM
آخر رد: سيد درويش
Question [VB.NET] كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ Microformt 6 215 09-11-20, 07:54 PM
آخر رد: moahmed.abdelmohsen

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم