01.Dim name As String = TextBoxSearch.Text.Trim()
02.
03.Sql = (Convert.ToString("SELECT DISTINCT TbEmployee.EmployeeName FROM TbUser INNER JOIN TbEmployee " & vbCr & vbLf & " ON TbUser.EmployeeID = TbEmployee.EmployeeID WHERE (TbEmployee.EmployeeName ='") & name) + "')"
04.
05.
06.DataAdapter = New SqlDataAdapter(Sql, Connection)
07.Dataset = New DataSet()
08.DataAdapter.Fill(Dataset, "Employee")
09.
10.Sql2 = "SELECT TbUser.UserID,TbUser.Username,TbUser.Password,TbUser.UserAuthen,TbUser.EmployeeID,TbEmployee.EmployeeName" & vbCr & vbLf & " FROM TbUser INNER JOIN" & vbCr & vbLf & " TbEmployee ON " & vbCr & vbLf & " TbUser.EmployeeID = TbEmployee.EmployeeID"
11.
12.DataAdapter.SelectCommand.CommandText = Sql2
13.DataAdapter.Fill(Dataset, "EmployeeDetail")
14.
15.Dim dcMaster As DataColumn, dcDetail As DataColumn
16.dcMaster = Dataset.Tables("Employee").Columns("EmployeeName")
17.dcDetail = Dataset.Tables("EmployeeDetail").Columns("EmployeeName")
18.
19.Dim dl As New DataRelation("Employee_Detail", dcMaster, dcDetail)
20.
21.Try
22. Dataset.Relations.Add(dl)
23.
24.Catch
25.End Try
26.Dim dvm As New DataViewManager()
27.dvm.DataSet = Dataset
28.
29.Dim dvs As DataViewSetting
30.dvs = dvm.DataViewSettings("Employee")
31.dvs.Sort = "EmployeeID"
32.
33.dvs = dvm.DataViewSettings("EmployeeDetail")
34.dvs.Sort = "EmployeeName"
35.
36.dataGridView1.[ReadOnly] = True
37.dataGridView1.DataSource = dvm
38.dataGridView1.DataMember = "Employee"
39.
40.dataGridView2.[ReadOnly] = True
41.dataGridView2.DataSource = dvm
42.dataGridView2.DataMember = "Employee.Employee_Detail"
