Protected Sub btnaddresolution_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnaddresolution.Click Dim bfield1 As New BoundField() Dim bfield2 As New BoundField() Dim bfield3 As New BoundField() Dim bfield4 As New BoundField() Dim bfield5 As New BoundField() Dim bfield6 As New BoundField() Dim bfield7 As New BoundField() bfield1.DataField = "Question ID" bfield1.HeaderText = "Question ID" bfield2.DataField = "Resesolution ID" bfield2.HeaderText = "Resesolution ID" bfield3.DataField = "Step ID" bfield3.HeaderText = "Step ID" bfield4.DataField = "Resolution" bfield4.HeaderText = "Resolution" bfield5.DataField = "Resolution Image" bfield5.HeaderText = "Resolution Image" bfield6.DataField = "Upload Document" bfield6.HeaderText = "Upload Document" bfield7.DataField = "Submission Type Id" bfield7.HeaderText = "Submission Type Id" GridView1.Columns.Add(bfield1) GridView1.Columns.Add(bfield2) GridView1.Columns.Add(bfield3) GridView1.Columns.Add(bfield4) GridView1.Columns.Add(bfield5) GridView1.Columns.Add(bfield6) GridView1.Columns.Add(bfield7) Me.BindGrid() End Sub Private Sub BindGrid() Dim dt As New DataTable() Dim dcol1 = New DataColumn("Question ID", GetType(Integer)) Dim dcol2 = New DataColumn("Resesolution ID", GetType(Integer)) Dim dcol3 = New DataColumn("Step ID", GetType(Integer)) Dim dcol4 = New DataColumn("Resolution", GetType(String)) Dim dcol5 = New DataColumn("Resolution Image", GetType(String)) Dim dcol6 = New DataColumn("Upload Document", GetType(String)) Dim dcol7 = New DataColumn("Submission Type Id", GetType(Integer)) dt.Columns.Add(dcol1) dt.Columns.Add(dcol2) dt.Columns.Add(dcol3) dt.Columns.Add(dcol4) dt.Columns.Add(dcol5) dt.Columns.Add(dcol6) dt.Columns.Add(dcol7) GridView1.DataSource = dt GridView1.DataBind() End Sub
<asp:GridView ID="GridView1" runat="server" Height="175px" Width="524px" BackColor="#0080FF" AutoGenerateColumns="False">
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)