Grid 中 Cell 文字编辑实现

革天明

(defun c:YTMHello()
  (command "OPENDCL")
  ;; 加载 HelloWorld.odcl 文件。
  (dcl_Project_Load "YTMgcbz" T)
  ;; 显示“Hello world”对话框示例。
  (dcl_Form_Show YTMgcbz_Form1)
  (princ)
)
(defun c:YTMgcbz_Form1_OnInitialize (/)
  (dcl_Control_SetValue YTMgcbz_Form1_OptionButton1 1)
  (dcl_Control_SetValue YTMgcbz_Form1_OptionButton2 0)
  (setq        strlst (list '("134" "fsd" "154")
                     '("13t3rtg4" "nstgfb" "187kjuy4")
                     '("13 teg34" "fh u6 usd" "15j 64")
               )
  )
  (foreach n strlst
    (setq GridRowCount
           (dcl_Grid_GetRowCount YTMgcbz_Form1_grid1)
    )
    (Setq
      nRow (dcl_Grid_AddString
             YTMgcbz_Form1_grid1
             (strcat (nth 0 n)
                     "\t"
                     (nth 1 n)
                     "\t"
                     (nth 2 n)
             )
           )
    )
  )
  (setq        GridRowCount
         (dcl_Grid_GetRowCount YTMgcbz_Form1_grid1)
  )
  (setq        GridColumnCount
         (dcl_Grid_GetColumnCount YTMgcbz_Form1_grid1)
  )
  (setq i 0)
  (repeat GridRowCount
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 0 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 1 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 2 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 3 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 4 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 5 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 6 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 7 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 8 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 9 6)
    (dcl_Grid_SetCellStyle YTMgcbz_Form1_grid1 i 10 6)
    (setq i (1+ 1))
  )
)

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:YTMgcbz.odcl 
下载次数:13  文件大小:1.74 KB 
下载权限: 不限 以上  [免费赚D豆]

革天明

答案在此：
(setq i (1+ 1))改为 (setq i (1+ i))，这个是写的时候写错了！
如楼上所述style>0即可实现编辑
若想实现第一列也可编辑，将Row Header (行头)去掉勾选，此时第一列就变成普通列了。

bluelisp

可以实现单元格合并吗？哪位出出主意也行