منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد (/showthread.php?tid=34621)

إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد - Alhootti1 - 05-05-20

السلام عليكم
عندي داتا غريد (صورة رقم 1)   كما في الصورة المرفقة اريد ان اكتب أول حرف من اسم الدواء في خلية Tablet  مثلا حرف A يظهر لي جدول آخر  (صورة رقم 2)  مباشرة تحته و يحتوي على البيانات المخزنة لكل الأدوية التي تبدأ من حرف A في قاعدة البيانات  ثم اضغط على سطر الذي يجتوي الداوء Amoxicillin  مثلا تنتقل البيانات إلى الصورة رقم 1 كل معلومة في خانة معينة ثم يختفي الجدول الثاني

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

2.12.0.0

RE: إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد - ابراهيم ايبو - 06-05-20

السلام عليكم ورحمة الله وبركاته
اخي الكريم
اولا ستضع داتاغرايد جديدة  رقم 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
شكرا لك على سؤالك الواضح حيث توصيفك لما تريد هو خوارزمية صحيحة للحل
رمضان كريم والله اكرم

RE: إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد - Alhootti1 - 06-05-20

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