Master detail relation view in datagridview

you can follow this structure

main table

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If Not IsPostBack Then
Dim constr As String = ConfigurationManager.ConnectionStrings("Data Source=zoom-pc;Initial Catalog=HR;Integrated Security=True").ConnectionString
Dim con As New SqlConnection(constr)
Dim cmd As New SqlCommand("SELECT * from Employees", con)
Dim sda As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
sda.Fill(dt)
employees.DataSource = dt
employees.DataBind()
End If
End Sub

details table

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
bindformview1()
End If
End Sub
Protected Sub FormView1_PageIndexChanging(ByVal sender As Object, ByVal e As FormViewPageEventArgs)
FormView1.PageIndex = e.NewPageIndex
bindformview1()
End Sub
Private Sub bindformview1()
Try
Dim constr As String = ConfigurationManager.ConnectionStrings("Data Source=zoom-pc;Initial Catalog=HR;Integrated Security=True").ConnectionString
Dim con As New SqlConnection(constr)
Dim cmd As New SqlCommand("SELECT * FROM Esalary WHERE EID= '" + Request.QueryString("EID") + "'", con)
Dim sda As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
sda.Fill(dt)
FormView1.DataSource = dt
FormView1.DataBind()
Catch ex As Exception
End Try
End Sub

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

Sulieman Alkatib9y ago
you can follow this structure

main table
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

       If Not IsPostBack Then
           Dim constr As String = ConfigurationManager.ConnectionStrings("Data Source=zoom-pc;Initial Catalog=HR;Integrated Security=True").ConnectionString
           Dim con As New SqlConnection(constr)
           Dim cmd As New SqlCommand("SELECT * from Employees", con)
           Dim sda As New SqlDataAdapter(cmd)
           Dim dt As New DataTable()
           sda.Fill(dt)
           employees.DataSource = dt
           employees.DataBind()
       End If
   End Sub
details table
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

       If Not IsPostBack Then
           bindformview1()
       End If
   End Sub



   Protected Sub FormView1_PageIndexChanging(ByVal sender As Object, ByVal e As FormViewPageEventArgs)
       FormView1.PageIndex = e.NewPageIndex
       bindformview1()
   End Sub

   Private Sub bindformview1()
       Try



       Dim constr As String = ConfigurationManager.ConnectionStrings("Data Source=zoom-pc;Initial Catalog=HR;Integrated Security=True").ConnectionString
       Dim con As New SqlConnection(constr)
       Dim cmd As New SqlCommand("SELECT * FROM Esalary WHERE EID= '" + Request.QueryString("EID") + "'", con)
       Dim sda As New SqlDataAdapter(cmd)
       Dim dt As New DataTable()
       sda.Fill(dt)
       FormView1.DataSource = dt
       FormView1.DataBind()

        Catch ex As Exception
       End Try
   End Sub
0