[عاشق الرسول]

بعد عدة محاولات وبمساعدة الاخ ابراهيم وصلت إلى الاتي ونجح والحمد لله
وهذا هو الكود لتعم الفائدة

كود :

   Private Sub TXT_FATH_Leave(sender As Object, e As System.EventArgs) Handles TXT_FATH.Leave

       Dim dr As OleDb.OleDbDataReader
       Dim cmd As New OleDb.OleDbCommand("select FATH_COD,FATH_MOB1,FATH_MOB2,RELA from STU_TBL where STU_FATH LIKE '%" & TXT_FATH.Text & "%'", con)
       con.Open()
       dr = cmd.ExecuteReader
       dr.Read()
       TXT_FATH_ID.Text = dr("FATH_COD")
       TXT_N_MOB.Text = dr("FATH_MOB1")
       TXT_N_MOB2.Text = dr("FATH_MOB2")
       CMB_REL.Text = dr("RELA")
       dr.Close()
       con.Close()

       Call STUG()
       Try

           Dim dt As New DataTable
           dt.Clear()
           da = New OleDbDataAdapter("select STU_ID,STU_NAM,STU_MOB,STU_GEND,STU_GRAD from STU_TBL where  STU_FATH like '%" & TXT_FATH.Text & "%'", con)
           da.Fill(dt)
           DGV_STU.DataSource = dt
           DGV_STU.Columns(0).DataPropertyName("STU_ID").ToString()
           DGV_STU.Columns("STU_NAM").DataPropertyName("STU_NAM").ToString()
           DGV_STU.Columns("STU_MOB").DataPropertyName("STU_MOB").ToString()
           DGV_STU.Columns("STU_GEND").DataPropertyName("STU_GEND").ToString()
           DGV_STU.Columns("STU_GRAD").DataPropertyName("STU_GRAD").ToString()
           ''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
 Catch ex As Exception

          End Try
   End Sub