ASP.NET

Dim w As Integer = 0
                    Dim chkbxWork As CheckBoxList = New CheckBoxList
                    chkbxWork = CType(Form.FindControl("cblWork"), CheckBoxList)
                    Dim sbWork As StringBuilder = New StringBuilder()
                    For w = 0 To chkbxWork.Items.Count - 1
                        If chkbxWork.Items(w).Selected Then
                            sbWork.Append(chkbxWork.Items(w).Value & ",")
                        End If
                    Next
                    'remove last comma
                    Dim IVWork As String = Left(sbWork.ToString(), Len(sbWork.ToString()) - 1)
                    Session("WorkType") = Server.HtmlEncode(IVWork)

DataSet ds;
          DataTable t1, t2, t3;
          DataRow r;
          DataColumn c1, c2, c3, c4, c5, c6;

          ds = new DataSet();


          t1 = new DataTable("emp");
          t2 = new DataTable("dep");

          c1 = new DataColumn("Eid");
          c2 = new DataColumn("Ename");
          c3 = new DataColumn("DID");

          t1.Columns.Add(c1);
          t1.Columns.Add(c2);
          t1.Columns.Add(c3);



          c4 = new DataColumn("DID");
          c5 = new DataColumn("Dname");
          c6 = new DataColumn("Daddress");

          t2.Columns.Add(c4);
          t2.Columns.Add(c5);
          t2.Columns.Add(c6);

          for (int i = 0; i < 3; i++)
          {
              r = t1.NewRow();
              r[0] = 10 + i;
              r[1] = "charle" + i;
              r[2] = 100 + i;
              t1.Rows.Add(r);

          }


          for (int i = 0; i < 3; i++)
          {
              r = t2.NewRow();
              r[0] = 100 + i;
              r[1] = "IT DEP no " + i;
              r[2] = "AMPT";
              t2.Rows.Add(r);

          }

          dataGridView1.DataSource = t1.DefaultView;
          dataGridView2.DataSource = t2.DefaultView;

          t1.Merge(t2);
          dataGridView3.DataSource = t1.DefaultView;