DataGridViewExample

Private m_preceptContacts As New preceptContacts()
    Private m_preceptDataSet As New DataSet()
    Private m_bsContacts As New Windows.Forms.BindingSource()
    Private m_toList As String = ""
    Private m_ccList As String = ""
    Private m_bccList As String = ""
    Private m_OKButtonPushed As Boolean = False

    Private Sub SelectpreceptContactForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Not m_OKButtonPushed Then
            m_toList = ""
            m_ccList = ""
            m_bccList = ""
        End If
    End Sub


    Private Sub SelectpreceptContactForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.entityType.SelectedIndex = 1
        m_preceptDataSet = m_preceptContacts.GetpreceptContacts(gdb_precept, Me.LastNameTB.Text.Trim(), _
        Me.firstNameTB.Text.Trim(), Me.entityType.SelectedItem.ToString.Trim(), _
        Me.RoleTB.Text.Trim())
        ' Dim preceptDataSet As DataSet = preceptContacts.GetpreceptContacts(gdb_precept, "", _
        '"", "", "")
        Me.dgvOfAddresses.AutoGenerateColumns = False
        Me.dgvOfAddresses.SelectionMode = Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        m_bsContacts.DataSource = m_preceptDataSet.Tables("Contacts")
        Me.dgvOfAddresses.DataSource = m_bsContacts

        'Last Name Column
        Dim lastNameColumn As New Windows.Forms.DataGridViewTextBoxColumn()
        lastNameColumn.Name = "LastName"
        lastNameColumn.HeaderText = "Last Name"
        lastNameColumn.DataPropertyName = "surname"
        Me.dgvOfAddresses.Columns.Add(lastNameColumn)

        'First Name Column
        Dim firstNameColumn As New Windows.Forms.DataGridViewTextBoxColumn()
        firstNameColumn.Name = "firstName"
        firstNameColumn.HeaderText = "First Name"
        firstNameColumn.DataPropertyName = "firstname"
        Me.dgvOfAddresses.Columns.Add(firstNameColumn)
        'email column
        Dim emailColumn As New Windows.Forms.DataGridViewTextBoxColumn()
        emailColumn.Name = "emailColumn"
        emailColumn.HeaderText = "Email"
        emailColumn.DataPropertyName = "emailaddress"
        Me.dgvOfAddresses.Columns.Add(emailColumn)
        'entityType
        Dim entityTypeColumn As New Windows.Forms.DataGridViewTextBoxColumn()
        entityTypeColumn.Name = "entityTypeColumn"
        entityTypeColumn.HeaderText = "Contact Type"
        entityTypeColumn.DataPropertyName = "ENTITYTYPE"
        Me.dgvOfAddresses.Columns.Add(entityTypeColumn)
        'jobType
        Dim jobTypeColumn As New Windows.Forms.DataGridViewTextBoxColumn()
        jobTypeColumn.Name = "jobTypeColumn"
        jobTypeColumn.HeaderText = "Job Type"
        jobTypeColumn.DataPropertyName = "role"
        Me.dgvOfAddresses.Columns.Add(jobTypeColumn)
        'ahourphone
        Dim phoneahColumn As New Windows.Forms.DataGridViewTextBoxColumn()
        phoneahColumn.Name = "phoneahColumn"
        phoneahColumn.HeaderText = "After Hours Ph"
        phoneahColumn.DataPropertyName = "phoneah"
        Me.dgvOfAddresses.Columns.Add(phoneahColumn)
        'business phone
        Dim phonebhColumn As New Windows.Forms.DataGridViewTextBoxColumn()
        phonebhColumn.Name = "phonebhColumn"
        phonebhColumn.HeaderText = "Bus Hours Ph"
        phonebhColumn.DataPropertyName = "phonebh"
        Me.dgvOfAddresses.Columns.Add(phonebhColumn)
        'mob phone
        Dim phonemobileColumn As New Windows.Forms.DataGridViewTextBoxColumn()
        phonemobileColumn.Name = "phonemobileColumn"
        phonemobileColumn.HeaderText = "Mob Ph"
        phonemobileColumn.DataPropertyName = "phonemobile"
        Me.dgvOfAddresses.Columns.Add(phonemobileColumn)
        'fprecept
        Dim fpreceptColumn As New Windows.Forms.DataGridViewTextBoxColumn()
        fpreceptColumn.Name = "fpreceptColumn"
        fpreceptColumn.HeaderText = "Fprecept"
        fpreceptColumn.DataPropertyName = "fprecept"
        Me.dgvOfAddresses.Columns.Add(fpreceptColumn)
    End Sub

    Private Sub SearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchButton.Click
        If LastNameTB.Text.Trim() = String.Empty Then
            MsgBox("You have to supply at least one letter of the Last Name to perform a search")
            Exit Sub
        End If
        m_preceptDataSet = m_preceptContacts.GetpreceptContacts(gdb_precept, Me.LastNameTB.Text.Trim(), _
               Me.firstNameTB.Text.Trim(), Me.entityType.SelectedItem.ToString.Trim(), _
               Me.RoleTB.Text.Trim())
        m_bsContacts.DataSource = m_preceptDataSet.Tables("Contacts")
        'bsContacts.ResetBindings(False)

    End Sub