（XD::ODCL:GridGetCheckBoxStatus）获取OPENDCL GRID CHECKBOX列状态

Lispboy

1. ;|
   
2. 获取OPENDCL GRID CHECKBOX列状态
   
3. 参数：ctrl --- GRID控件名 或 GRID控件实体名
   
4.       col  --- 指定CHECKBOX列号 （0起始）
   
5. 返回值：列状态表，0 ，1组成
   
6. |;
   
7. (defun XD::ODCL:GridGetCheckBoxStatus (ctrl col / i lst rows status)
   
8.   (if (= (type ctrl) 'STR)
   
9.     (setq ctrl (eval (read ctrl)))
   
10.   )
    
11.   (cond
    
12.     ((= (type col) 'LIST)
    
13.       (dcl-Grid-GetCellCheckState ctrl (car col) (cadr col))
    
14.     )
    
15.     ((= (type col) 'INT)
    
16.       (setq rows (dcl-Grid-GetRowCount ctrl))
    
17.       (setq i 0)
    
18.       (repeat rows
    
19.         (setq status (dcl-Grid-GetCellCheckState ctrl i col))
    
20.         (setq lst (cons status lst))
    
21.         (setq i (1+ i))
    
22.       )
    
23.       (reverse lst)
    
24.     )
    
25.   )
    
26. )
    
27. 
    

;|<br /> 获取OPENDCL GRID CHECKBOX列状态<br /> 参数：ctrl --- GRID控件名 或 GRID控件实体名<br />       col  --- 指定CHECKBOX列号 （0起始）<br /> 返回值：列状态表，0 ，1组成<br /> |;<br /> (defun XD::ODCL:GridGetCheckBoxStatus (ctrl col / i lst rows status)<br />   (if (= (type ctrl) 'STR)<br />     (setq ctrl (eval (read ctrl)))<br />   )<br />   (cond<br />     ((= (type col) 'LIST)<br />       (dcl-Grid-GetCellCheckState ctrl (car col) (cadr col))<br />     )<br />     ((= (type col) 'INT)<br />       (setq rows (dcl-Grid-GetRowCount ctrl))<br />       (setq i 0)<br />       (repeat rows<br />         (setq status (dcl-Grid-GetCellCheckState ctrl i col))<br />         (setq lst (cons status lst))<br />         (setq i (1+ i))<br />       )<br />       (reverse lst)<br />     )<br />   )<br /> )<br /> <br />

st788796

为什么有闪烁?

kele99kele

OPENDCL是个好东西，要学习下

shengjian9212

好好学习大佬作品！