Hello Jim
Yes it can Jim! Here's some code from an old project I was playing with
that creates a table object, a DataRow object, and Finally inserts the
populated table into a DataSet object
MyDatase.Tables.Add(TicketTable(MyTicketArray))
Private Function TicketTable(ByVal TicketArray As ArrayList) As DataTable
Dim MyRow As DataRow
With Me._MyTable
..TableName = "TimeTickets"
..Columns.Add("TaskID", GetType(Integer))
..Columns.Add("TaskName", GetType(String))
..Columns.Add("TicketDate", GetType(Date))
..Columns.Add("OnsiteValue", GetType(Decimal))
..Columns.Add("OnsiteTime", GetType(String))
..Columns.Add("OffsiteValue", GetType(Decimal))
..Columns.Add("OffsiteTime", GetType(String))
..Columns.Add("PhoneValue", GetType(Decimal))
..Columns.Add("PhoneTime", GetType(String))
..Columns.Add("MeetingValue", GetType(Decimal))
..Columns.Add("MeetingTime", GetType(String))
..Columns.Add("TotalValue", GetType(Decimal))
End With
For Each TimeTicket As TimeTicket In TicketArray
MyRow = Me._MyTable.NewRow
With MyRow
..Item(enmTaskTable.TaskID) = TimeTicket.TaskID
..Item(enmTaskTable.TaskName) = TimeTicket.TaskName
..Item(enmTaskTable.TicketDate) = TimeTicket.TicketDate
..Item(enmTaskTable.OnSiteTime) = TimeTicket.OnSiteTime
..Item(enmTaskTable.OnSiteValue) = TimeTicket.OnSiteValue(modMain.OnSiteRate)
..Item(enmTaskTable.OffSiteTime) = TimeTicket.OffSiteTime
..Item(enmTaskTable.OffSiteValue) =
TimeTicket.OffSiteValue(modMain.OffSiteRate)
..Item(enmTaskTable.PhoneTime) = TimeTicket.PhoneTime
..Item(enmTaskTable.PhoneValue) = TimeTicket.PhoneValue(modMain.PhoneRate)
..Item(enmTaskTable.MeetingTime) = TimeTicket.MeetingTime
..Item(enmTaskTable.MeetingValue) =
TimeTicket.MeetingValue(modMain.MeetingRate)
..Item(enmTaskTable.TotalValue) =
TimeTicket.MeetingValue(modMain.MeetingRate) _
+ TimeTicket.OffSiteValue(modMain.OffSiteRate) _
+ TimeTicket.OnSiteValue(modMain.OnSiteRate) _
+ TimeTicket.PhoneValue(modMain.MeetingRate)
End With
Me._MyTable.Rows.Add(MyRow)
Next
Return Me._MyTable
End Function
It gives you an idea of what's needed. Of course if there are other things
you might need to do like designating a key field, etc.
--
Ibrahim Malluf
http://www.malluf.com
==============================================
MCS Data Services Code Generator
http://64.78.34.175/mcsnet/DSCG/Announcement.aspx
==============================================
Pocket PC Return On Investment Calculator
Free Download
http://64.78.34.175/mcsnet/kwickKalk1.aspx