Grid 学习笔记

st788796

Grid 控件可以在程序中增加列，也可以在 Studio 编辑器的 属性 中完成增加列，如果用函数控制，使用 Dcl_Grid_AddColumns
1 dcl_Grid_AddColumns
;;参数: control
;;      表, ((标题1 <对齐方式1> <列宽1> <列图像索引1>) (标题2 <对齐方式2> <列宽2> <列图像索引2>) ...)
;;示例: (dcl_grid_addcolumns control '(("A-0") ("A-1") ("A-3")))
这个 标题在 启用 列标题时才有效

2 完成增加列后，Grid 的主数据区要用 AddRows 来增加数据
Dcl_Grid_AddRow
参数: control
      (<列0图像索引> 列0标题 <列1标题> <列2标题> ...)
示例: (dcl_grid_addrow control '("C-1" "C-2" "C-3"));不含图像索引
       另外用 (dcl_grid_addrow control "\t")  可以按设定的 Columns 增加一Cell为空的行
这两个是 Grid 操作的基本函数

st788796

获取 Grid 内的所有 CellText

1. (defun ODCL_Grid_GetAllCellText        (control / i j rowlst lst)
   
2.   (setq i 0)
   
3.   (repeat (dcl_grid_getrowcount control)
   
4.     (setq j 0)
   
5.     (repeat (dcl_grid_getcolumncount control)
   
6.       (setq rowlst (cons (dcl_grid_getcelltext control i j)
   
7.                          rowlst
   
8.                    )
   
9.             j           (1+ j)
   
10.       )
    
11.     )
    
12.     (setq lst         (cons (reverse rowlst) lst)
    
13.           rowlst nil
    
14.           i         (1+ i)
    
15.     )
    
16.   )
    
17.   (reverse lst)
    
18. )

(defun ODCL_Grid_GetAllCellText        (control / i j rowlst lst)<br />   (setq i 0)<br />   (repeat (dcl_grid_getrowcount control)<br />     (setq j 0)<br />     (repeat (dcl_grid_getcolumncount control)<br />       (setq rowlst (cons (dcl_grid_getcelltext control i j)<br />                          rowlst<br />                    )<br />             j           (1+ j)<br />       )<br />     )<br />     (setq lst         (cons (reverse rowlst) lst)<br />           rowlst nil<br />           i         (1+ i)<br />     )<br />   )<br />   (reverse lst)<br /> )

skg123

请问如何实现一次性清除 GRID表内的数据/