jump to navigation

Rolling DataTables by hand June 23 2004

Creating dataTables programatically is very handy. This is just a quick note to remind myself how to do it.

1. Create the new datatable

Dim dtblSalesLeads As New DataTable(”sales_leads”)

2. Create the columns

Dim dcolColumn As DataColumn
dcolColumn = New DataColumn(”sales_lead_id”, GetType(String))
dtblSalesLeads.Columns.Add(dcolColumn)

dcolColumn = New DataColumn(”sales_lead_datetime”, GetType(DateTime))
dtblSalesLeads.Columns.Add(dcolColumn)

dcolColumn = New DataColumn(”organization_name”, GetType(String))
dtblSalesLeads.Columns.Add(dcolColumn)

3. Create the rows

Dim drowSalesLead As DataRow

drowSalesLead = dtblSalesLeads.NewRow
drowSalesLead(”sales_lead_id”) = 1
drowSalesLead(”sales_lead_datetime”) = “6-Jul-2004″
drowSalesLead(”organization_name”) = “Me”
dtblSalesLeads.Rows.Add(drowSalesLead)

drowSalesLead = dtblSalesLeads.NewRow
drowSalesLead(”sales_lead_id”) = 2
drowSalesLead(”sales_lead_datetime”) = “7-Jul-2004″
drowSalesLead(”organization_name”) = “You”
dtblSalesLeads.Rows.Add(drowSalesLead)

Comments»

no comments yet - be the first?