Grid 中 Cell 文字编辑实现

st788796

前面有过一个讨论 用 一个 隐藏的 textbox 控件，通过调整位置重合到 Cell 实现“可编辑”，今天查看了下 grid 中 cell 属性，发现可以通过设定 style 实现，定义双击事件，将双击的 cell 修改 style 为 36 （Dropdown combo list ）通过 SetCellDropList 就可以将文字保留下来

newer

是ODCL新版本加的，还是以前版本就有？

st788796

newer 发表于 2014-12-14 14:46
是ODCL新版本加的，还是以前版本就有？

我用7.0版本测试的，combo list可以输入，但需setcelldroplist才可以保留，如果输入完成再修改样式并设置text就间接实现cell编辑了

st788796

一个简单测试

1. (dcl_project_import
   
2.   '("YWt6A54HAABJN39NBuID6sUxKj9quMF1dWIi8njKzL/2rxhtJsaVENW4PLtp+/O4ztCeHX+d7aYe"
   
3.     "9/G8NFPSUspJwBR1XeMB/vcRuwkZ37aLspKjRQlApuOzokPBhxiw4k3RK68c+sa0RrCeelRG+R1G"
   
4.     "1aF+vrVw3q1mpN9Rui+D6y6+VnhP/mK4TtriKRV2O9tTFPOUAT8BRwtr1NX0iFOkINg5IFNFHxpC"
   
5.     "aC+o4P1EpKquhHfTUR2LFYHsJFsTdasxMMPrC6D8AIXL5DbySPhoGvMtbRYoVag/fBPy9TQTRU7b"
   
6.     "lzOWFof5iCZ2sl7HPQL/hmwPOoL0hlyPU5yVupP/sQE34VgA/5AEGA/0DH5n2vSyptvOGyApJODf"
   
7.     "s63F4wClDhWe8QGcCrXx9mFtQVogDo9mP0hKovJHMScMeBvNjQInU8WzlWvEMrUooJgyA8Ji2Du1"
   
8.     "bMHTB06idMG2WSH1LDugqnAm3BeypUrlVLAVQO2Wq/3HyhMe58hCmle7is+3wpHkFo0mrU7psZYX"
   
9.     "1gMWzHiRA9Ps1MzsnEA8IjMIoZDj4lzgNohKhhOc4VyDWg/ngrFsYVrAPALzhlSPFJw9ukHsTSid"
   
10.     "O2nhQ6NBV6CRlo7G8biBDIclA+d1o3zXSbcpCQeTCiGi64Yd6BH4Rp2EZQnMqZe416Ldtcf85mH1"
    
11.     "N5H0C3MdOvGRdvCVa9OU0Wmli0VwBz4ALPGy0p9gClgAXMc3w5Ft0dvWiUfgKDWI7YDk4L6Zilqj"
    
12.     "29LAByc/SOzBQ/ARZqA7gAhtcW2RWuDdh0gvwNf5kAoSg3kcYVrr"
    
13.    )
    
14. )
    
15. (dcl_form_show gridtest)
    

(dcl_project_import<br />   '("YWt6A54HAABJN39NBuID6sUxKj9quMF1dWIi8njKzL/2rxhtJsaVENW4PLtp+/O4ztCeHX+d7aYe"<br />     "9/G8NFPSUspJwBR1XeMB/vcRuwkZ37aLspKjRQlApuOzokPBhxiw4k3RK68c+sa0RrCeelRG+R1G"<br />     "1aF+vrVw3q1mpN9Rui+D6y6+VnhP/mK4TtriKRV2O9tTFPOUAT8BRwtr1NX0iFOkINg5IFNFHxpC"<br />     "aC+o4P1EpKquhHfTUR2LFYHsJFsTdasxMMPrC6D8AIXL5DbySPhoGvMtbRYoVag/fBPy9TQTRU7b"<br />     "lzOWFof5iCZ2sl7HPQL/hmwPOoL0hlyPU5yVupP/sQE34VgA/5AEGA/0DH5n2vSyptvOGyApJODf"<br />     "s63F4wClDhWe8QGcCrXx9mFtQVogDo9mP0hKovJHMScMeBvNjQInU8WzlWvEMrUooJgyA8Ji2Du1"<br />     "bMHTB06idMG2WSH1LDugqnAm3BeypUrlVLAVQO2Wq/3HyhMe58hCmle7is+3wpHkFo0mrU7psZYX"<br />     "1gMWzHiRA9Ps1MzsnEA8IjMIoZDj4lzgNohKhhOc4VyDWg/ngrFsYVrAPALzhlSPFJw9ukHsTSid"<br />     "O2nhQ6NBV6CRlo7G8biBDIclA+d1o3zXSbcpCQeTCiGi64Yd6BH4Rp2EZQnMqZe416Ldtcf85mH1"<br />     "N5H0C3MdOvGRdvCVa9OU0Wmli0VwBz4ALPGy0p9gClgAXMc3w5Ft0dvWiUfgKDWI7YDk4L6Zilqj"<br />     "29LAByc/SOzBQ/ARZqA7gAhtcW2RWuDdh0gvwNf5kAoSg3kcYVrr"<br />    )<br /> )<br /> (dcl_form_show gridtest)<br />

$ (dcl_grid_filllist gridtest_form1_grid '(("1" "2" "3")("1" "b" "c")))
T
_$ (dcl_grid_setcellstyle gridtest_form1_grid 1 1 36)
T
_$
_$ (dcl_grid_setcelldroplist gridtest_form1_grid 1 1 '("1" "2" "3"))
T
_$
_$

newer

st788796 发表于 2014-12-14 16:15
一个简单测试

$ (dcl_grid_filllist gridtest_form1_grid '(("1" "2" "3")("1" "b" "c")))

没跟踪以前的讨论，ODCL设DROPLIST的本意也不仅仅是为了只读吧？ 以前他们没注意到？

st788796

newer 发表于 2014-12-14 16:17
没跟踪以前的讨论，ODCL设DROPLIST的本意也不仅仅是为了只读吧？ 以前他们没注意到？

可能设置的本意是为了选择，副作用是能输入{:soso_e100:}

newer

st788796 发表于 2014-12-14 16:18
可能设置的本意是为了选择，副作用是能输入

这样不就可以对没合并格的表格进行预览和编辑了吗？ST给写个函数吧，CELL行列中间设置表格线方便实现不？

st788796

newer 发表于 2014-12-14 16:26
这样不就可以对没合并格的表格进行预览和编辑了吗？ST给写个函数吧，CELL行列中间设置表格线方便实现不？ ...

把全部 cell 设成 Drop combo list 模式就可以了

我本来是处理一个数据显示，但这个数据类一般对应一个值，个别有多个值需要选择，在 textbox 和 combolist 间需要转换，找了半天只有 Grid  可以实现，测试过程中发现这个纯属偶然{:soso_e100:}

st788796

newer 发表于 2014-12-14 16:26
这样不就可以对没合并格的表格进行预览和编辑了吗？ST给写个函数吧，CELL行列中间设置表格线方便实现不？ ...

在写一个通用预览net表格，可以修改cell，增删、插入行列、绘制table、导出xls，完成后发布

牢固

只要是设置为>0的style,都可以编辑！

st788796

牢固 发表于 2014-12-15 20:01
只要是设置为>0的style,都可以编辑！

startcelledit并不能编辑

牢固

st788796 发表于 2014-12-15 20:20
startcelledit并不能编辑

[img][/img]

牢固 发表于 2014-12-15 20:01
只要是设置为>0的style,都可以编辑！

startcelledit是什么？

st788796

牢固 发表于 2014-12-15 20:01
只要是设置为>0的style,都可以编辑！

上面绕道了,设成 6 - Text 或 13  - Multiline text 即可

革天明

我已经设置每个单元格的属性为6了，但实际上只有1、3行可以编辑，其它行就不行。请问如何解决？与OpenDCL的版本有关吗？我使用的是7.0.1.4汉化版本。

革天明

st788796 发表于 2014-12-16 07:23
上面绕道了,设成 6 - Text 或 13  - Multiline text 即可

请帮忙看一下，属性已设置为6