最后输入的数据失去如何处理??????????

挚友01

对话框中有grid和若干文本编辑框,当输入最后1个数据时"A"不按回车,再点其它按钮处理时,提取不到最后grid和文本编辑框录入的"A" ,大家是怎么解决的?

newer

把你的ODCL文件和LSP文件贴上来吧，帮你看下

挚友01

11111111111111111111

newer

挚友01 发表于 2016-3-3 12:50
好几个问题，在程序旦

试了你的程序，点textbotton1 按钮，可以看到字符串啊，你的问题是什么？详细说下你的操作过程。

挚友01

1111111111111111111

挚友01

请给点明示...

newer

挚友01 发表于 2016-3-3 23:12
请给点明示...

你这个是模式对话框啊，你怎么说是非模式下的问题？

挚友01

我在模式对话框和非模式下都试过,突然搞不明白了,请指教啊...

挚友01

1111111111

eachy

挚友01 发表于 2016-3-4 22:35
1111111111

你是想在 Grid 中输入后，点按钮获取刚才中 Grid 中的输入值吗？
Grid 有 Grid-GetCurCell 函数，获取当前激活的单元格，然后用 行 列 获取其内容即可

挚友01

不是,我在Grid中某行某列输入内容后,光标还在单元格上闪烁时,点击其它功能键时,刚输入的内容就没提取出来,也就说grid 没有输入完毕后"回车结束",

iLisp

挚友01 发表于 2016-3-6 17:34
不是,我在Grid中某行某列输入内容后,光标还在单元格上闪烁时,点击其它功能键时,刚输入的内容就没提取出来, ...

测试一次就知道了

挚友01

; 添加按钮
(defun c:PDPBZ_Form1_TextButton2_OnClicked (/)
(setq nnRow (car (dcl_Grid_GetCurCell PDPBZ_Form1_Grid1)))   ; 返回活动单元格的行
(dcl_Grid_SetCurCell PDPBZ_Form1_Grid1 nnRow)   ;设置表格指针
;(dcl_MessageBox (itoa nnRow))
(if (>= nnRow 0)
  (progn
    (setq row_val1 (Odcl_Grid_Get_Fun1 nnRow))    ; 当前指针对应的记录 提取当前
    (dcl_Grid_InsertRow PDPBZ_Form1_Grid1 nnRow "" "")
    (lOdcl_Grid_full_Fun1)
    (lOdcl_Grid_Set_Fun1 nnRow row_val1)
    (dcl_Grid_SetCurCell PDPBZ_Form1_Grid1 nnRow)   ;设置表格指针
  )
) 这个单行可以用这个函数，可提取整个表呢，
;;提取Grid数据
(defun Odcl_Grid_Get_Fun( / na nb a b ab sab n)
(setq na (dcl_Grid_GetRowCount PDPBZ_Form1_Grid1)) ;;行
(setq nb (dcl_Grid_GetColumnCount PDPBZ_Form1_Grid1)) ;;列
(setq Sab '() ab '())
(setq a 0 n "T")
(repeat na
    (setq b 1)
    (repeat (- nb 1)
        (setq ab (cons (dcl_Grid_GetCellText PDPBZ_Form1_Grid1 a b) ab))      这句有问题，如何改....
        (setq b (+ b 1))
    )
;(dcl_MessageBox (trim_b (car (reverse ab))))
    (if (and (/= (trim_b (car (reverse ab))) "")(/= (trim_b (car (reverse ab))) " "))
      (setq Sab (cons (reverse ab) Sab))
    )
    (setq a (+ a 1))
    (setq ab '())
)
(setq Sab (reverse Sab))
)
提取不到最后录入的数据....