高级表格如何自动写到下一行？

hulala889

我在高级表格启动的时候设定了表格是100行固定的行数
我在添加新数据的时候如何自动添加到下一行？
如本来有两行数据了，我置数据的时候如何自动置到第三行，下次置到第四行
不是插入行哦，我固定100行了

frankiy

写了一个例子给你参考

frankiy

方法一，写入前对第一列数据进行枚举，寻找空单元格进行写入。

方法二，定义一个全局变量，记录高级表格的下一个空白行的行号。

zainex

用一个全局变量，或者静态局部变量记录所在行，每次置数据后，将所在行向下移动：

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
所在行	整数型

所在行 ＝ 所在行 ＋ 1
如果真 (所在行 ≥ 高级表格1.行数)
调试输出 (“超过行数了”, 所在行, 高级表格1.行数)
高级表格1.置数据 (所在行, 1, #表格常量 .文本型, 到文本 (所在行))

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 所在行, 整数型, 静态<br /> <br /> 所在行 ＝ 所在行 ＋ 1<br /> .如果真 (所在行 ≥ 高级表格1.行数)<br />     调试输出 (“超过行数了”, 所在行, 高级表格1.行数)<br /> .如果真结束<br /> 高级表格1.置数据 (所在行, 1, #表格常量.文本型, 到文本 (所在行))

aipca

可以使用倒插写入表格的，不需要初始百行，每次写的时候，都直接插入第1列，这样写过数据的就会自动沉降到下一行，全局判断超过100行的删除掉，这样最后写入的就在最前面，还不用管每次写入的时候，会不会有空文件。

aipca

大概这个意思，一次插几行自己定义

aipca

…… 附件居然忘了使用

q1224568236

.版本 2
.支持库 eGrid

.如果 (主窗口.选择框_商品出入_编辑_条码回车到下一行.选中 ＝ 真)
    .如果真 (到文本 (高级表格.取数据 (局_光标行 ＋ 1, 1)) ＝ “合计：”)
        _商品出入_插入_被选择 ()
        高级表格.置光标 (局_光标行 ＋ 1, 1)
    .如果真结束

.否则
    高级表格.置光标 (高级表格.取光标行号 (), 8)
.版本 2
.支持库 eGrid

.子程序 _商品出入_插入_被选择
.局部变量 局_列只读数组, 整数型, , "0"
.局部变量 局_计次, 整数型
.局部变量 局_计次1, 整数型
.局部变量 局_行, 整数型
.局部变量 局_表格, 高级表格

局_表格 ＝ 高级表格_商品出入
.如果真 (局_表格.取光标行号 () ＝ 局_表格.行数 － 2 或 局_表格.取光标行号 () ＝ -1 或 到文本 (局_表格.取数据 (局_表格.取光标行号 (), 1)) ＝ “合计：”)
    局_表格.插入行 (到文本 (局_表格.行数 － 1), 局_表格.行数 － 1)
    局_表格.置光标 (局_表格.行数 － 2, 1)
    局_表格.获取焦点 ()
.如果真结束
.如果真 (局_表格.取光标行号 () ＜ 局_表格.行数 － 2 且 局_表格.取光标行号 () ≠ -1)
    局_表格.插入行 (到文本 (局_表格.取光标行号 () ＋ 1), 局_表格.取光标行号 () ＋ 1)
    局_表格.置光标 (局_表格.取光标行号 () ＋ 1, 1)
    局_表格.获取焦点 ()


补充内容 (2025-5-24 21:14):
有点乱，从新给你发一个，和我的一模一样

zainex

在打开程序读取数据时，对 所在行 进行更新就不会出现这个问题：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
所在行	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
数组	文本型		0
数	整数型

文本 ＝ 到文本 (读入文件 (“保存的内容.txt”))
数组 ＝ 分割文本 (文本, #换行符, )
计次循环首 (取数组成员数 (数组), 数)
所在行 ＝ 所在行 ＋ 1
高级表格1.置数据 (所在行, 1, #表格常量 .文本型, 数组 [数])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果真 (所在行 ＋ 1 ≥ 高级表格1.行数)
调试输出 (“超过行数了”, 所在行, 高级表格1.行数)
返回 ()
所在行 ＝ 所在行 ＋ 1
高级表格1.置数据 (所在行, 1, #表格常量 .文本型, 到文本 (所在行))

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

变量名	类 型	静态	数组	备 注
数	整数型
结果	文本型

如果真 (所在行 ≥ 高级表格1.行数)
所在行 ＝ 高级表格1.行数 － 1
计次循环首 (所在行, 数)
结果 ＝ 结果 ＋ 高级表格1.取数据 (数, 1) ＋ #换行符
计次循环尾 ()
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 2)
写到文件 (“保存的内容.txt”, 到字节集 (结果))

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 所在行, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> <br /> 文本 ＝ 到文本 (读入文件 (“保存的内容.txt”))<br /> 数组 ＝ 分割文本 (文本, #换行符, )<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     所在行 ＝ 所在行 ＋ 1<br />     高级表格1.置数据 (所在行, 1, #表格常量.文本型, 数组 [数])<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (所在行 ＋ 1 ≥ 高级表格1.行数)<br />     调试输出 (“超过行数了”, 所在行, 高级表格1.行数)<br />     返回 ()<br /> .如果真结束<br /> 所在行 ＝ 所在行 ＋ 1<br /> 高级表格1.置数据 (所在行, 1, #表格常量.文本型, 到文本 (所在行))<br /> <br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> .局部变量 数, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> .如果真 (所在行 ≥ 高级表格1.行数)<br />     所在行 ＝ 高级表格1.行数 － 1<br /> .如果真结束<br /> .计次循环首 (所在行, 数)<br />     结果 ＝ 结果 ＋ 高级表格1.取数据 (数, 1) ＋ #换行符<br /> .计次循环尾 ()<br /> 结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 2)<br /> 写到文件 (“保存的内容.txt”, 到字节集 (结果))

例子.zip (1.52 KB, 下载次数: 0)

2025-5-25 09:00 上传

点击文件名下载附件