Build a More Powerful CRM System with Visual Basic .NET Extensions: Listing 1.
Building a ContactList for display in ACT2012Demo.
framework.LogOn(PADFile, ACTUserName, ACTUserPassword)
Dim companyField = framework.Contacts.GetFieldDescriptor(
name:="TBL_CONTACT.COMPANYNAME", isReal:=True)
Dim sortByCompanyNameAscending() As SortCriteria = {
New SortCriteria(companyField,
System.ComponentModel.ListSortDirection.Ascending)}
Dim contacts = framework.Contacts.GetContacts(sortByCompanyNameAscending)
'Build the list for display, log off, display it
Dim contactList As New List(Of ContactIdentity)
For i = 0 To contacts.Count - 1
Dim contactInfo = New ContactIdentity With {
.CompanyName = contacts(i).Company,
.FirstName = contacts(i).FirstName,
.LastName = contacts(i).LastName,
.Phone = contacts(i).Fields.Item( _ name:="TBL_CONTACT.BUSINESS_PHONE", isReal:=True),
.MobilePhone = contacts(i).Fields("MOBILE_PHONE",
Act.Framework.MutableEntities.FieldNameType.Alias)
}
contactList.Add(contactInfo)
Next
framework.LogOff()
Me.DataGridView1.DataSource = contactList
</Language Lab>
Extending ACT!
About the Author
Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].