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