Zobrazit plnou verzi příspěvku: PartsLists.Item(1).Sort

Radek Pícha
12.01.2007, 10:46
Ja mám správně napsat další parametry metody sort?
Help říká:
Public Sub Sort( _   ByVal PrimaryColumnTitle As String, _   Optional ByVal PrimaryColumnAscending As Boolean = True, _   Optional ByVal SecondaryColumnTitle As String = "", _   Optional ByVal SecondaryColumnAscending As Boolean = True, _   Optional ByVal TertiaryColumnTitle As String = "", _   Optional ByVal TertiaryColumnAscending As Boolean = True _)
Daří se mi pouze:
oVykres.ActiveSheet.PartsLists.Item(1).Sort ("Číslo")
nebo:
oVykres.ActiveSheet.PartsLists.Item(1).Sort ("Název")
nebo:
oVykres.ActiveSheet.PartsLists.Item(1).Sort ("Pozice")

Nedaří se mi:
oVykres.ActiveSheet.PartsLists.Item(1).Sort ("Číslo",True,"Název",True,"Pozice",False)



Jan Liska
13.01.2007, 16:41
Dobrý den,
 
jakou verzi Inventoru používáte? Zkoušel jsem:
Sub test()    Dim doc As DrawingDocument        Set doc = ThisApplication.ActiveDocument    Dim pl As PartsList        Set pl = doc.ActiveSheet.PartsLists(1)    Call pl.Sort("QTY", True, "ITEM", False, "PART NUMBER", False)End Sub
 
a výsledkek byl dle očekávání. Testovaná verze R11 SP2 English.
 
S pozdravem

Radek Pícha
15.01.2007, 09:00
Děkuji za odpověď, mám verzi 10.
Že by tam byla chyba a tím další důvod pro plánovaný přechod na verzi 11?