Object: Column

Object: Column

In the search results list of a DataFinder or of a data store the Column object provides a column with properties. If you run an advanced search, DIAdem automatically adds columns with the properties that you searched for. Select Configure Search Results List from the context menu of the search results list to manually add further columns with properties. You only can remove columns which were added manually.

The following example displays in a DataFinder the property with the focus in the search results column:

Dim oMyResultsList, oMyCell
Set oMyResultsList = Navigator.Display.CurrDataFinder.ResultsList
Set oMyCell = oMyResultsList.FocusedCell
If NOT oMyCell Is Nothing Then
  Call MsgBoxDisp(oMyCell.Column.Property)
End If

oMyResultsList = dd.Navigator.Display.CurrDataFinder.ResultsList 
oMyCell = oMyResultsList.FocusedCell 
if not oMyCell is None : 
    dd.MsgBoxDisp(oMyCell.Column.Property) 

The following example loads in a data store the columns selected in the search results as channels into the Data Portal:

Dim oMyResultsList, oReturnType, SelectedColumn
Set oMyResultsList = Navigator.Display.CurrDataStore.ResultsList
oReturnType = Navigator.Display.CurrDataStore.QueryForm.ReturnType
For Each SelectedColumn in oMyResultsList.ColumnsSelection
  Call Navigator.LoadProperty(SelectedColumn.GetPath(oReturnType),oMyResultsList.Elements)
Next

oMyResultsList = dd.Navigator.Display.CurrDataStore.ResultsList 
oReturnType = dd.Navigator.Display.CurrDataStore.QueryForm.ReturnType 
for SelectedColumn in oMyResultsList.ColumnsSelection: 
    dd.Navigator.LoadProperty(SelectedColumn.GetPath(oReturnType),oMyResultsList.Elements)