Information générale
Catégorie:
Codage, syntaxe et commandes
Can some one tell me why the code line fontbold will not work?
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.Tasks.Item(t).FontBold = .T.
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