All pastes #421531 Raw Edit

Stuff

public text v1 · immutable
·published 2007-04-02 21:45 UTC
rendered paste body
            While drCustomers.Read
                Customer.CustomerID = drCustomers.Item("CustomerID")
                Customer.Company = drCustomers.Item("Company")
                customerAL.Add(Customer)
            End While
Other File has

   With cboCustomer
            .DataSource = customersarray
            .DisplayMember = customersarray.Item("Company")
            .ValueMember = customersarray.Item("CustomerID")
        End With