<%@ Page Language="C#" AutoEventWireup="true" CodeFile="FlipGridView.aspx.cs" Inherits="XmlPostData" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:GridView ID="GridView1" runat="server" ShowHeader="false" AllowSorting="true">
</asp:GridView>
</div>
</form>
</body>
</html>
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Net
Imports System.Text
Imports System.IO
Public Class FlipGridView
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
GridView1.DataSource = FlipDataSet(c)
GridView1.DataBind
End Sub
Public Function c() As DataSet
Dim ds As DataSet = New DataSet
Dim dt As DataTable = New DataTable("Company")
Dim dr As DataRow
dt.Columns.Add(New DataColumn("accountNo", GetType(Int32)))
dt.Columns.Add(New DataColumn("CompanyName", GetType(System.String)))
dt.Columns.Add(New DataColumn("Address", GetType(System.String)))
Dim i As Integer = 0
Do While (i <= 10)
dr = dt.NewRow
dr(0) = i
dr(1) = ("Company" _
+ (i _
+ (Environment.NewLine + ("Title" + i))))
dr(2) = ("Address" _
+ (i _
+ (Environment.NewLine + ("Title" + i))))
dt.Rows.Add(dr)
i = (i + 1)
Loop
ds.Tables.Add(dt)
Return ds
End Function
Public Function FlipDataSet(ByVal my_DataSet As DataSet) As DataSet
Dim ds As DataSet = New DataSet
For Each dt As DataTable In my_DataSet.Tables
Dim table As DataTable = New DataTable
Dim i As Integer = 0
Do While (i <= dt.Rows.Count)
table.Columns.Add(Convert.ToString(i))
i = (i + 1)
Loop
Dim r As DataRow = Nothing
Dim k As Integer = 0
Do While (k < dt.Columns.Count)
r = table.NewRow
r(0) = dt.Columns(k).ToString
Dim j As Integer = 1
Do While (j <= dt.Rows.Count)
r(j) = dt.Rows((j - 1))(k)
j = (j + 1)
Loop
table.Rows.Add(r)
k = (k + 1)
Loop
ds.Tables.Add(table)
Next
Return ds
End Function
End Class