（20230209不终更强迫症）-增删行滑杆/翻页版dcl模拟表格编辑

wzg356 · 发表于 2022-3-10 20:20

紫苏炒黄瓜发表于 2022-3-10 08:36
以前也想过，但不知道怎么解决超出行数后下拉翻页的问题

行数过多，只能能另取面板，即增加按钮切换至下一面板，同时保存输出上一面板数据，结束/确定后两个面板的数据合并，有点复杂。

paulpipi · 发表于 2022-3-10 20:24

这个真的挺好的，感谢分享

紫苏炒黄瓜 · 发表于 2022-3-11 12:29

本帖最后由紫苏炒黄瓜于 2022-3-11 12:34 编辑

wzg356 发表于 2022-3-10 20:20
行数过多，只能能另取面板，即增加按钮切换至下一面板，同时保存输出上一面板数据，结束/确定后两个面板 ...

目前很多都是采用列表框，通过处理字符串来达到分列的效果。
如果能用滚动条配上你的面板类型就好了。
也就是文本框组合+滚动条。不知道动态效果怎么样。

另外，我以前是使用excel来代替dcl做交互界面的，
但是，excel兼容性的问题让我又转回dcl。很多电脑调用不出excel。

vitalgg · 发表于 2022-3-11 13:19

本帖最后由 vitalgg 于 2022-3-13 23:21 编辑

(require 'ui:*)(setq ui:*table-numbers-per-page* 15)
(setq ui:*table-widths* '(10 20 5 3 30))
(ui:table
(cons '("a""b""C""D""E")
(progn
(setq lst '())(setq i% 0)
(reverse
(repeat 1006
(setq lst
(cons
(list (strcat "A" (itoa (setq i% (1+ i%))))
(strcat "B" (itoa i%))
(strcat "C" (itoa i%))
(strcat "D" (itoa i%))
(strcat "E" (itoa i%)))
lst)))))))
(ui:table '(("姓名" "性别" "年龄" "身高")("张三" "男" 18 180)("李四" "女" 18 170)("王五" "男" 18 180)))

Nico · 发表于 2022-3-11 13:27

这个效果好

czb203 · 发表于 2022-3-11 19:59

看起来很不错的样子

wzg356 · 发表于 2022-3-13 08:52

紫苏炒黄瓜发表于 2022-3-10 08:36
以前也想过，但不知道怎么解决超出行数后下拉翻页的问题

已升级翻页功能

xj6019 · 发表于 2022-3-13 09:19

翻页版文件传错了吗？我怎么没实现呀

wzg356 · 发表于 2022-3-13 09:33

本帖最后由 wzg356 于 2022-3-13 09:35 编辑

xj6019 发表于 2022-3-13 09:19
翻页版文件传错了吗？我怎么没实现呀

没错，原版/升级版函数名相同，参数不同，新开cad加载“”dcl模拟表格编辑可翻页.lsp", 显示行数小于表长才有翻页功能

xj6019 · 发表于 2022-3-13 09:38

本帖最后由 xj6019 于 2022-3-13 09:41 编辑

wzg356 发表于 2022-3-13 09:33
没错，原版/升级版函数名相同，参数不同，新开cad加载“”dcl模拟表格编辑可翻页.lsp", 显示行数小于表长 ...

什么意思呀表要换写法吗？写个例子参考一下呗怎么控制显示行数呀

账号		自动登录	找回密码
密码			注册

[函数] （20230209不终更强迫症）-增删行滑杆/翻页版dcl模拟表格编辑