Hello,
I'm using the following code to fill my comboboxes with data-properties:
Sub CB_Programname_EventInitialize(ByRef This)
Dim MyDataFinder, MyProperties, MyAdaptiveQuery, MyProgramNames, i, MyOutput
Set MyDataFinder = Navigator.ConnectDataFinder("My DataFinder")
Set MyProperties = MyDataFinder.GetIndexedProperties(eSearchFile)
Set MyAdaptiveQuery = Navigator.ConnectDataFinder("My DataFinder").CreateQuery(eAdvancedQuery)
Call MyAdaptiveQuery.Conditions.Add(eSearchFile,"fullpath" , "=", "F:\Datas\*")
Set MyProgramNames = MyProperties("Program_Name").GetValueList(MyAdaptiveQuery)
Call CB_Programmname.Items.Add("",4411)
For i = 1 To MyProgramNames.Count
MyOutput =MyProgramNames.Values(i)
Call This.Items.Add(MyOutput,i)
Next
End Sub
My problem is that this code doesn't work with all my data-properties i want to fill in comboboxes, e.g Property "UUT"
I found out that the term GetValueList only works with text-property?!?
Is there any alternative or different way to fill all my comboboxes not working with the code above?!
Thanks a lot