Information générale
Catégorie:
Codage, syntaxe et commandes
The first line of code with the > works but not the second. Also there is no errors or interuption of the code.
For t = 1 To oProjt.Tasks.Count
Seek(AllTrim(oProjt.Tasks.Item(t).Name)) Order (lcIndex2)
If Found() Then
If subno1 <> 1 Then
oProjt.Tasks.Item(t).OutlineIndent
> oProjt.Application.SelectTaskField(t,'Name',.F.)
> FontColor = RGB(255,0,0)
If subno1b <> 1 Then
oProjt.Tasks.Item(t).OutlineIndent
EndIf
EndIf
EndIf
Next t
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement