CAD Fórum : PartsLists.Item(1).Sort

PartsLists.Item(1).Sort : Děkuji za odpověď, mám verzi 10. Že...

Mon, 15 Jan 2007 09:00:04 +0000

Autor: Radek P�cha
P�edm�t: 3733
Zasl�no: 15.led.2007 v 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?

PartsLists.Item(1).Sort : Dobrý den, jakou verzi Inventoru...

Sat, 13 Jan 2007 16:41:24 +0000

Autor: Jan Liska
P�edm�t: 3733
Zasl�no: 13.led.2007 v 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

PartsLists.Item(1).Sort : Ja mám správně napsat další parametry...

Fri, 12 Jan 2007 10:46:02 +0000

Autor: Radek P�cha
P�edm�t: 3733
Zasl�no: 12.led.2007 v 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)