（XD::ODCL:GridCheckBoxStatusInvert）OPENDCL CHeckBox列反选

Lispboy

1. ;|
   
2. OPENDCL CHeckBox列反选
   
3. 参数：ctrl --- GRID控件名 或 GRID控件实体名
   
4.       col  --- 指定CHECKBOX列号 （0起始）
   
5. 返回值：列状态表，0 ，1组成
   
6. |;
   
7. 
   
8. (defun XD::ODCL:GridCheckBoxStatusInvert (ctrl col / status)
   
9.   (if (= (type ctrl) 'STR)
   
10.     (setq ctrl (eval (read ctrl)))
    
11.   )
    
12.   (setq status (XD::ODCL:GridGetCheckBoxStatus ctrl col)
    
13.         status (XD::List:BooleanValueInvert status)        
    
14.   )
    
15.   (XD::ODCL:GridSetCheckBoxStatus ctrl col status)
    
16.   status
    
17. )
    
18. 
    

;|<br /> OPENDCL CHeckBox列反选<br /> 参数：ctrl --- GRID控件名 或 GRID控件实体名<br />       col  --- 指定CHECKBOX列号 （0起始）<br /> 返回值：列状态表，0 ，1组成<br /> |;<br /> <br /> (defun XD::ODCL:GridCheckBoxStatusInvert (ctrl col / status)<br />   (if (= (type ctrl) 'STR)<br />     (setq ctrl (eval (read ctrl)))<br />   )<br />   (setq status (XD::ODCL:GridGetCheckBoxStatus ctrl col)<br />         status (XD::List:BooleanValueInvert status)        <br />   )<br />   (XD::ODCL:GridSetCheckBoxStatus ctrl col status)<br />   status<br /> )<br /> <br />