（XD::ODCL:GridSetCheckBoxStatus）设置GRID指定列CHECKBOX状态

Lispboy

1. ;|
   
2. 设置GRID指定列CHECKBOX状态
   
3. 参数： ctrl --- 控件名 or 控件实体名
   
4.        col  --- 列号 （起始0）
   
5.        status-- 状态  (0-取消 1-选中)
   
6. 返回值：T
   
7. 说明： status -- 如果给原子，0或者1，CHECKBOX 列设置成同一值
   
8.                  如果给表， 按表的元素分配设置每行的CHECKBOX的值
   
9. |;
   
10. 
    
11. (defun XD::ODCL:GridSetCheckBoxStatus (ctrl col status / i rows)
    
12.   (if (= (type ctrl) 'STR)
    
13.     (setq ctrl (eval (read ctrl)))
    
14.   )
    
15.   (setq rows (dcl-Grid-GetRowCount ctrl))
    
16.   (cond
    
17.     ((atom status)
    
18.       (setq i 0)
    
19.       (repeat rows
    
20.         (dcl-Grid-SetCellCheckState ctrl i col status)
    
21.         (setq i (1+ i))
    
22.       )
    
23.     )
    
24.     ((= (type status) 'LIST)
    
25.       (setq i -1)
    
26.       (mapcar
    
27.         '(lambda (x)
    
28.            (dcl-Grid-SetCellCheckState ctrl (setq i (1+ i))
    
29.                                        col x
    
30.            )
    
31.          )
    
32.         status
    
33.       )
    
34.     )
    
35.   )
    
36.   status
    
37. )
    
38. 
    

;|<br /> 设置GRID指定列CHECKBOX状态<br /> 参数： ctrl --- 控件名 or 控件实体名<br />        col  --- 列号 （起始0）<br />        status-- 状态  (0-取消 1-选中)<br /> 返回值：T<br /> 说明： status -- 如果给原子，0或者1，CHECKBOX 列设置成同一值<br />                  如果给表， 按表的元素分配设置每行的CHECKBOX的值<br /> |;<br /> <br /> (defun XD::ODCL:GridSetCheckBoxStatus (ctrl col status / i rows)<br />   (if (= (type ctrl) 'STR)<br />     (setq ctrl (eval (read ctrl)))<br />   )<br />   (setq rows (dcl-Grid-GetRowCount ctrl))<br />   (cond<br />     ((atom status)<br />       (setq i 0)<br />       (repeat rows<br />         (dcl-Grid-SetCellCheckState ctrl i col status)<br />         (setq i (1+ i))<br />       )<br />     )<br />     ((= (type status) 'LIST)<br />       (setq i -1)<br />       (mapcar<br />         '(lambda (x)<br />            (dcl-Grid-SetCellCheckState ctrl (setq i (1+ i))<br />                                        col x<br />            )<br />          )<br />         status<br />       )<br />     )<br />   )<br />   status<br /> )<br /> <br />