*---------------------- Location Section ------------------------ * Library: Acustomcontrols.vcx * Class: Cbostates * Method: Init() *----------------------- Usage Section -------------------------- *) Description: *) * Scope: Public * Parameters: *$ Usage: *$ * Returns: *--------------------- Maintenance Section ---------------------- * Change Log: * CREATED 04/13/2004 - JMW * MODIFIED 04/21/2005 - NN *---------------------------------------------------------------- if !dodefault() return .f. endif if not used('c_States') and ! States_List('c_States') return .f. endif local lnSelect, lnRows, lnCols, laFields[1] lnSelect = select() select c_States lnCols = afields(laFields) lnRows = reccount() dimension this.aRowSource [m.lnRows, m.lnCols] copy to array this.aRowSource this.rowsourcetype = 5 && Array this.boundto = .t. this.rowsource = "This.aRowSource" select (m.lnSelect)