-----------------------------------------------------------
New Message on MumbaiUserGroup
-----------------------------------------------------------
From: BusyWizy
Message 2 in Discussion
At 12:13 PM 08/07/2003, you wrote:
While there is no readymade method available, the following function
might be of help to u. just pass the datatable u want to transpose to
it.
Public
Function Transpose(dtOriginal as DataTable) as DataTable
Dim dtTranspose As New DataTable
Dim dr As DataRow
Dim dc As DataColumn
Dim i, j As Integer
For i = 0 To dtOriginal.Rows.Count - 1
dtTranspose.Columns.Add("Column" & i.ToString)
Next
<x-tab> </x-tab>
For i = 0 To dtOriginal.Columns.Count - 1
dr = dtTranspose.NewRow
dtTranspose.Rows.Add(dr)
Next
For i = 0 To dtOriginal.Rows.Count - 1
For j = 0 To dtOriginal.Columns.Count - 1
dtTranspose.Rows(j).Item(i) = dtOriginal.Rows(i).Item(j)
Next
Next
<x-tab> </x-tab>Return dtTranspose
End Function
hope that helps,
nauzad kapadia [mvp]
Hi Techies,
Does anyone know how to transpose the Datagrid, or how to transpose the dataset.
Please let me know.
<o:p></o:p>
Kishor
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/MumbaiUserGroup/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
