Hi Experts,
I want to create gridview like this;
Depot |
Class Loco |
Route |
Name |
Staf ID |
19 |
23 |
24 |
KL1 |
GMS |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
code behind:
Private Sub bindGrid()
conn.Open()
Dim TD4 As New DataTable()
Dim RD4 As DataRow
Dim comm4 As New SqlCommand(" select a.staffid,b.nama,c.nama as depoh,d.route,f.lesen_desc " _
& " from route_learning a, ITMS.dbo.hr_main b,nama_depoh c,jenis_route d,driver_lesen e,jenis_lesen f " _
& " where a.staffid = b.Emplid " _
& " and a.depoh = c.id " _
& " and a.routes=d.id " _
& " and e.lesen=f.id " _
& " and d.dept=10 " _
& " and f.deptdesc=10 " _
& " GROUP BY c.nama,d.route,f.lesen_desc,a.staffid,b.nama ", conn)
Dim dar4 As SqlDataReader = comm4.ExecuteReader()
TD4.Columns.Add("staffid", GetType(String))
TD4.Columns.Add("nama", GetType(String))
TD4.Columns.Add("depoh", GetType(String))
TD4.Columns.Add("route", GetType(String))
TD4.Columns.Add("lesen_desc", GetType(String))
While dar4.Read()
RD4 = TD4.NewRow
RD4("staffid") = dar4(0)
RD4("nama") = dar4(1)
RD4("depoh") = dar4(2)
RD4("route") = dar4(3)
RD4("lesen_desc") = dar4(4)
TD4.Rows.Add(RD4)
End While
dar4.Close()
Dim ds4 As DataSet = New DataSet()
Dim dat4 As SqlDataAdapter = New SqlDataAdapter(comm4)
dat4.Fill(ds4)
GridView2.DataSource = TD4
GridView2.DataBind()
'ds4.Tables.Clear()
GridView2.Visible = True
conn.Close()
End Sub
hope experts can help me how to do this.
thanks in advance
musiw.