|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示:
: W$ ]; s8 I4 ^1 G% |4 s: u2 U- f, dproc capTrue { args } {- _) D2 e Z, M1 a
return 1
& A+ N! e% N1 v! [+ H}+ Z* C& ~3 @' I" ^
% @& G% j' Q$ O% ~& _. O
proc CisExplorerPreCreate { args } {5 j5 R& v$ S( a6 I( d9 z
set result 13 V! ~3 w7 ~; ?) V9 W" o+ t+ g
SetCISMultiValuedField {Datasheet}0 { k. y% s Y' W2 D
SetCISMultiValuedField {Value}" w$ Q V2 w+ d p6 O. k% c
AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]
( e/ T. W6 n2 J AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]
1 b% I9 ~9 d8 X* d. @# m AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]3 n7 Q& O5 e, }7 |
AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255] @3 u# p% U$ K, i) i* t f
return $result
$ p: z# w+ l. w. j}
3 O) J f0 q) n; S( l+ S
! y! a0 c2 m' t) a# [4 RRegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""6 Y& T) f& p1 A2 r* c J
编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。/ U8 e" L7 [. L/ R1 C; V
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。8 [# j- B) ?: L2 |/ s& ~+ s
|
评分
-
查看全部评分
|