GetColumnValue (ComboBox)

*-- Returns a value of a specified column number passed as a parameter.
LPARAMETERS tnColumn
LOCAL lnOldBoundColumn, luRetVal
*-- Save the old bound column
lnOldBoundColumn = This.BoundColumn

*-- Make the requested column the new bound column
This.BoundColumn = tnColumn

*-- Retrieve the value
luRetVal = This.Value

*-- Reset the previously bound column condition
This.BoundColumn = lnOldBoundColumn

RETURN luRetVal



************************************************************
* Method: CComboBox.GetColumnValue()
*
*) Description:
*) Returns a value of a specified column number
*) passed as a parameter.
*
*@ Inputs:
*@ 1. - number of the column containing the
*@ value you want
*@ 2. This.Value - value of the bound column
*
* Outputs: None
*$ Usage:
*$ .GetColumnValue()
*
*% Example:
*% This.GetColumnValue(2) - returns the value in the
*% second column of the combo box.
*
* Returns: Unknown Type - can be any value in the combo box
* Assumptions: None
* Rules:
* 1. You must specify a column that exists. No validation
* for number of columns is performed. If you specify
* the 3rd column and there are only two ... error.
*
* Constraints:
* Performance: None
* Enviornmental: None
*? Notes: None
* Local Routines: None
*-- Process:
*-- 1. Save the old bound column
*-- 2. Make the requested column the new bound column
*-- 3. Retrieve the value
*-- 4. Reset the previously bound column condition
*
* Change Log:
* CREATED Thursday, 11/02/95 22:29:26 - CTB:
************************************************************