MembershipUser to DataTable

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

No related posts.



Leave a Reply