|
1. 编写Multi-Value和颜色设置程序,编写好的程序如下所示: v" r6 m! Z2 D1 ?5 N0 K! o
proc capTrue { args } {1 {) W% n8 |4 e6 m
return 1
* w6 ^/ z* ^3 d9 V! L$ l}% J3 O+ ~; D2 p7 I) ~1 b9 u- C
- s& ]4 z2 I9 c! V/ h8 a$ Bproc CisExplorerPreCreate { args } {4 c' F+ l' Y& R; V
set result 1
! R. \/ D" L8 X0 M* ^ SetCISMultiValuedField {Datasheet}- P! a; C4 I' m5 y" \! Q, F
SetCISMultiValuedField {Value}) }7 [; x+ R% {. i
AddCISCriteria {Preferred} {=} {A} {1} [CISGetColor 34 139 34] [CISGetColor 255 255 255]( C! T8 O/ G* n, \4 }+ n- b& q
AddCISCriteria {Preferred} {=} {B} {1} [CISGetColor 0 0 255] [CISGetColor 255 255 255]! D+ D$ p7 j; o) v. F
AddCISCriteria {Preferred} {=} {C} {1} [CISGetColor 255 215 0] [CISGetColor 255 255 255]5 w6 x( X% `6 U, V! K
AddCISCriteria {Preferred} {=} {D} {1} [CISGetColor 255 0 0] [CISGetColor 255 255 255] 1 t3 P9 z$ k/ O2 Q+ l1 b0 R7 q
return $result
, }# \ ^9 t+ j& `' c# j. @; R) e}# R6 }2 l1 N2 a: @! T; V( l
# I. D o0 U" rRegisterAction "_cdnOrPreCisExplorerCreate" "capTrue" "" "CisExplorerPreCreate" ""
/ z; m+ t4 ]1 E+ t5 A6 C 编写好该程序之后,将其另存为.tcl文件,直接修改txt文本的后缀名即可。上面程序中用绿色标出的表示设置Multi-Value属性,调用SetCISMultiValuedField()函数即可。- _0 D: l2 }( t0 |$ G! ~
程序中用黄色标出的区域表示设置颜色,{Preferred} {=} {A} {1}这部分表示判断条件,即Preferred属性等于A,[CISGetColor 34 139 34] [CISGetColor 255 255 255]表示设置颜色,其中第一个颜色为设置文本的颜色,后一个颜色为底色,目前是底色设置为白色,文本按照公司的规定设置不同的颜色。
1 w! c a$ E3 _8 z |
评分
-
查看全部评分
|