[elgokr]

تفضل اخى الكريم استبدل الـ Sub الخاص بـ Search_send

بهذا اكود التالى

كود :

   Private Sub Search_send()
       Try
           Dim MySqlSreach As String
           Dim DTS_send As New DataTable
           DTS_send.Clear()
           MySqlSreach = "Select id,date1,from_b,to_b,note_m,note1,note2,note3 From send Where id = " & Txtid.Text
           Dim adp As New SqlClient.SqlDataAdapter(MySqlSreach, con)
           adp.Fill(DTS_send)

           If DTS_send.Rows.Count > 0 Then
               Me.Txtid.Text = DR_send("id").ToString
               'Me.Dtpdate1.Value = DR_send("date1").ToString
               'Me.Txtfrom_b.Text = DR_send("from_b").ToString
               'Me.Txtto_b.Text = DR_send("to_b").ToString
               'Me.Txtnote_m.Text = DR_send("note_m").ToString
               'Me.Txtnote1.Text = DR_send("note1").ToString
               'Me.Txtnote2.Text = DR_send("note2").ToString
               'Me.Txtnote3.Text = DR_send("note3").ToString
               DGV_send.DataSource = DTS_send
           Else
               Me.Txtid.Text = Nothing
               'Me.Dtpdate1.Value = Nothing
               'Me.Txtfrom_b.Text = Nothing
               'Me.Txtto_b.Text = Nothing
               'Me.Txtnote_m.Text = Nothing
               'Me.Txtnote1.Text = Nothing
               'Me.Txtnote2.Text = Nothing
               'Me.Txtnote3.Text = Nothing

               DGV_send.Rows.Clear()
               DGV_send.Columns.Clear()
               DGV_send.DataSource = Nothing
               MsgBox(" عفواً . لا يوجد بيانات ", MsgBoxStyle.Information)
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

وسيعمل معك بامر الله بدون مشكلة

تذكر فى حالة عدم العمل كاملاً ارفاق المشروع وقاعدة البيانات

حتى يتم مراجعة عمود from_b من جدول send واختبار الكود كاملاً بعد اتمام التعديل عليه

تحياتى لك

وتمنياتى لك لاتوفيق