Sep 152008
Anyone know if there is a cleaner way to do this?
1: Private Function MembershipUser_To_DataTable(ByVal vMembershipUser As MembershipUser) As DataTable
2: Dim mDataTable As New DataTable
3: mDataTable.Columns.Add("Email")
4: mDataTable.Columns.Add("PasswordQuestion")
5: mDataTable.Columns.Add("Comment")
6: mDataTable.Columns.Add("IsApproved")
7: mDataTable.Columns.Add("CreateDate")
8: mDataTable.Columns.Add("LastLoginDate")
9: mDataTable.Columns.Add("LastActivityDate")
10: mDataTable.Columns.Add("LastPasswordChangedDate")
11: mDataTable.Columns.Add("UserId")
12: mDataTable.Columns.Add("IsLockedOut")
13: mDataTable.Columns.Add("LastLockoutDate")
14: mDataTable.Rows.Add(vMembershipUser)
15: Return mDataTable
16: End Function
