如何删除高级表格指定文本在保存数据库里

深蓝的海

125.zip (2.48 MB, 下载次数: 3)

昨天 19:08 上传

点击文件名下载附件 如何删除高级表格指定文本在保存数据库里
大神们帮我看看

你的猫

  

变量名	类 型	静态	数组	备 注
i	整数型

' 关键：从最后一行开始，往前循环
变量循环首 (高级表格1.行数, 1, -1, i)
' 检查第 i 行的第 2 列是否包含指定文本
如果真 (寻找文本 (高级表格1.取文本数据 (i, 2), “41466”, , 假) ≠ -1)
高级表格1.删除行 (i)  ' 如果找到，就删除这一行

变量循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .局部变量 i, 整数型<br /> <br /> ' 关键：从最后一行开始，往前循环<br /> .变量循环首 (高级表格1.行数, 1, -1, i)<br />     ' 检查第 i 行的第 2 列是否包含指定文本<br />     .如果真 (寻找文本 (高级表格1.取文本数据 (i, 2), “41466”, , 假) ≠ -1)<br />         高级表格1.删除行 (i)  ' 如果找到，就删除这一行<br />     .如果真结束<br /> .变量循环尾 ()

深蓝的海

你的猫 发表于 2026-3-3 19:45
[e=2].版本 2
.支持库 eGrid

主要是删除表格文本之后要保存到数据库

深蓝的海

你的猫 发表于 2026-3-3 19:45
[e=2].版本 2
.支持库 eGrid

是删除高级表格里面的【很好】文本不是删除行 ，删除之后要保存到数据库

RainCharm

.版本 2
.支持库 eGrid

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 k, 整数型
.局部变量 文本, 文本型

i ＝ 高级表格1.取光标行号 ()
k ＝ 高级表格1.取光标列号 ()
高级表格1.置数据 (i, k, #表格常量.文本型, “”)
高级表格1.存到文件 (“d:\*.txt”)

尛龍科技

那你是修改数据库列然后在读取呗

z573277679

替换这两个子程序就行。

  

子程序名	返回值类型	公开	备 注
添加到数据库

判断 (删首尾空 (编辑框_客户名称.内容) ＝ “”)
信息框 (“请输入客户名称”, 0, )
返回 ()
判断 (删首尾空 (编辑框_商品名称.内容) ＝ “”)
信息框 (“请输入商品名称”, 0, )
返回 ()
判断 (删首尾空 (编辑框_规格.内容) ＝ “”)
信息框 (“请输入商品单位”, 0, )
返回 ()
判断 (删首尾空 (编辑框_单价.内容) ＝ “” 或 删首尾空 (编辑框_数量.内容) ＝ “” 或 删首尾空 (编辑框_金额.内容) ＝ “”)
信息框 (“商品单价、数量、金额有一项或多项为空。”, 0, )
返回 ()



编辑框_备注.内容 ＝ 子文本替换 (编辑框_备注.内容, “很好”, “”, , , 真)
编辑框_备注.内容 ＝ 删首尾空 (编辑框_备注.内容)
如果 (_启动窗口.数据库连接_DATA.执行SQL (“INSERT INTO 销货清单 (销货日期,客户名称,商品名称,商品单位,单价,数量,金额,备注) VALUES('” ＋ 编辑框_销货日期.内容 ＋ “','” ＋ 删首尾空 (编辑框_客户名称.内容) ＋ “','” ＋ 删首尾空 (编辑框_商品名称.内容) ＋ “','” ＋ 删首尾空 (编辑框_规格.内容) ＋ “',” ＋ 删首尾空 (编辑框_单价.内容) ＋ “,” ＋ 删首尾空 (编辑框_数量.内容) ＋ “,” ＋ 删首尾空 (编辑框_金额.内容) ＋ “,'” ＋ 编辑框_备注.内容 ＋ “')”, ))
取月度客户名称 ()
信息框 (“数据已添加！”, 0, “提示：”, )
信息框 (“添加商品失败。”, 0, , )

_启动窗口.高级表格.插入行 (, _启动窗口.高级表格.行数)
_启动窗口.高级表格.置字体尺寸 (1, 1, _启动窗口.高级表格.行数, 9, 18)
_启动窗口.高级表格.置单元格文字颜色 (1, 1, _启动窗口.高级表格.行数, 9, #蓝色 )
_启动窗口.高级表格.置字体名 (1, 1, _启动窗口.高级表格.行数, 9, “仿宋_GB2312”)
处理事件 ()
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 1, 1, 编辑框_销货日期.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 2, 1, 编辑框_客户名称.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 3, 1, 编辑框_商品名称.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 4, 1, 编辑框_规格.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 5, 1, 编辑框_数量.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 6, 1, 编辑框_单价.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 7, 1, 编辑框_金额.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 8, 1, 编辑框_备注.内容)
编辑框_规格.内容 ＝ “”
编辑框_数量.内容 ＝ “”
编辑框_单价.内容 ＝ “”
编辑框_金额.内容 ＝ “”
编辑框_备注.内容 ＝ “”

子程序名	返回值类型	公开	备 注
更新到数据库

变量名	类 型	静态	数组	备 注
局部_修改	逻辑型
日数	文本型
月数	文本型

判断 (删首尾空 (编辑框_客户名称.内容) ＝ “”)
信息框 (“请输入客户名称”, 0, )
返回 ()
判断 (删首尾空 (编辑框_商品名称.内容) ＝ “”)
信息框 (“请输入商品名称”, 0, )
返回 ()
判断 (删首尾空 (编辑框_规格.内容) ＝ “”)
信息框 (“请输入商品规格”, 0, )
返回 ()
判断 (删首尾空 (编辑框_单价.内容) ＝ “” 或 删首尾空 (编辑框_数量.内容) ＝ “” 或 删首尾空 (编辑框_金额.内容) ＝ “”)
信息框 (“商品单价、数量、金额任一项不能为空。”, 0, )
返回 ()



编辑框_备注.内容 ＝ 子文本替换 (编辑框_备注.内容, “很好”, “”, , , 真)
编辑框_备注.内容 ＝ 删首尾空 (编辑框_备注.内容)
局部_修改 ＝ _启动窗口.数据库连接_DATA.执行SQL (“UPDATE 销货清单 SET 销货日期='” ＋ 编辑框_销货日期.内容 ＋ “',客户名称='” ＋ 删首尾空 (编辑框_客户名称.内容) ＋ “',商品名称='” ＋ 删首尾空 (编辑框_商品名称.内容) ＋ “', 商品单位='” ＋ 删首尾空 (编辑框_规格.内容) ＋ “',单价=” ＋ 删首尾空 (编辑框_单价.内容) ＋ “ ,数量=” ＋ 删首尾空 (编辑框_数量.内容) ＋ “ ,金额=” ＋ 删首尾空 (编辑框_金额.内容) ＋ “  ,备注='” ＋ 编辑框_备注.内容 ＋ “' where id=” ＋ 全局_修改id, )
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 1, 1, 编辑框_销货日期.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 2, 1, 编辑框_客户名称.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 3, 1, 编辑框_商品名称.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 4, 1, 编辑框_规格.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 5, 1, 编辑框_数量.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 6, 1, 编辑框_单价.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 7, 1, 编辑框_金额.内容)
_启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 8, 1, 编辑框_备注.内容)
如果 (局部_修改 ＝ 真)
信息框 (“修改成功，请继续。”, 0, )
销毁 ()
信息框 (“修改失败。”, 0, )

全局_修改id ＝ “”

.子程序 添加到数据库<br /> <br /> .判断开始 (删首尾空 (编辑框_客户名称.内容) ＝ “”)<br />     信息框 (“请输入客户名称”, 0, )<br />     返回 ()<br /> .判断 (删首尾空 (编辑框_商品名称.内容) ＝ “”)<br />     信息框 (“请输入商品名称”, 0, )<br />     返回 ()<br /> .判断 (删首尾空 (编辑框_规格.内容) ＝ “”)<br />     信息框 (“请输入商品单位”, 0, )<br />     返回 ()<br /> .判断 (删首尾空 (编辑框_单价.内容) ＝ “” 或 删首尾空 (编辑框_数量.内容) ＝ “” 或 删首尾空 (编辑框_金额.内容) ＝ “”)<br />     信息框 (“商品单价、数量、金额有一项或多项为空。”, 0, )<br />     返回 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> 编辑框_备注.内容 ＝ 子文本替换 (编辑框_备注.内容, “很好”, “”, , , 真)<br /> 编辑框_备注.内容 ＝ 删首尾空 (编辑框_备注.内容)<br /> <br /> .如果 (_启动窗口.数据库连接_DATA.执行SQL (“INSERT INTO 销货清单 (销货日期,客户名称,商品名称,商品单位,单价,数量,金额,备注) VALUES('” ＋ 编辑框_销货日期.内容 ＋ “','” ＋ 删首尾空 (编辑框_客户名称.内容) ＋ “','” ＋ 删首尾空 (编辑框_商品名称.内容) ＋ “','” ＋ 删首尾空 (编辑框_规格.内容) ＋ “',” ＋ 删首尾空 (编辑框_单价.内容) ＋ “,” ＋ 删首尾空 (编辑框_数量.内容) ＋ “,” ＋ 删首尾空 (编辑框_金额.内容) ＋ “,'” ＋ 编辑框_备注.内容 ＋ “')”, ))<br />     取月度客户名称 ()<br />     信息框 (“数据已添加！”, 0, “提示：”, )<br /> .否则<br />     信息框 (“添加商品失败。”, 0, , )<br /> .如果结束<br /> <br /> _启动窗口.高级表格.插入行 (, _启动窗口.高级表格.行数)<br /> _启动窗口.高级表格.置字体尺寸 (1, 1, _启动窗口.高级表格.行数, 9, 18)<br /> _启动窗口.高级表格.置单元格文字颜色 (1, 1, _启动窗口.高级表格.行数, 9, #蓝色)<br /> _启动窗口.高级表格.置字体名 (1, 1, _启动窗口.高级表格.行数, 9, “仿宋_GB2312”)<br /> 处理事件 ()<br /> <br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 1, 1, 编辑框_销货日期.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 2, 1, 编辑框_客户名称.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 3, 1, 编辑框_商品名称.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 4, 1, 编辑框_规格.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 5, 1, 编辑框_数量.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 6, 1, 编辑框_单价.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 7, 1, 编辑框_金额.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.行数 － 1, 8, 1, 编辑框_备注.内容)<br /> <br /> 编辑框_规格.内容 ＝ “”<br /> 编辑框_数量.内容 ＝ “”<br /> 编辑框_单价.内容 ＝ “”<br /> 编辑框_金额.内容 ＝ “”<br /> 编辑框_备注.内容 ＝ “”<br /> <br /> <br /> .子程序 更新到数据库<br /> .局部变量 局部_修改, 逻辑型<br /> .局部变量 日数, 文本型<br /> .局部变量 月数, 文本型<br /> <br /> .判断开始 (删首尾空 (编辑框_客户名称.内容) ＝ “”)<br />     信息框 (“请输入客户名称”, 0, )<br />     返回 ()<br /> .判断 (删首尾空 (编辑框_商品名称.内容) ＝ “”)<br />     信息框 (“请输入商品名称”, 0, )<br />     返回 ()<br /> .判断 (删首尾空 (编辑框_规格.内容) ＝ “”)<br />     信息框 (“请输入商品规格”, 0, )<br />     返回 ()<br /> .判断 (删首尾空 (编辑框_单价.内容) ＝ “” 或 删首尾空 (编辑框_数量.内容) ＝ “” 或 删首尾空 (编辑框_金额.内容) ＝ “”)<br />     信息框 (“商品单价、数量、金额任一项不能为空。”, 0, )<br />     返回 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> 编辑框_备注.内容 ＝ 子文本替换 (编辑框_备注.内容, “很好”, “”, , , 真)<br /> 编辑框_备注.内容 ＝ 删首尾空 (编辑框_备注.内容)<br /> <br /> 局部_修改 ＝ _启动窗口.数据库连接_DATA.执行SQL (“UPDATE 销货清单 SET 销货日期='” ＋ 编辑框_销货日期.内容 ＋ “',客户名称='” ＋ 删首尾空 (编辑框_客户名称.内容) ＋ “',商品名称='” ＋ 删首尾空 (编辑框_商品名称.内容) ＋ “', 商品单位='” ＋ 删首尾空 (编辑框_规格.内容) ＋ “',单价=” ＋ 删首尾空 (编辑框_单价.内容) ＋ “ ,数量=” ＋ 删首尾空 (编辑框_数量.内容) ＋ “ ,金额=” ＋ 删首尾空 (编辑框_金额.内容) ＋ “  ,备注='” ＋ 编辑框_备注.内容 ＋ “' where id=” ＋ 全局_修改id, )<br /> <br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 1, 1, 编辑框_销货日期.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 2, 1, 编辑框_客户名称.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 3, 1, 编辑框_商品名称.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 4, 1, 编辑框_规格.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 5, 1, 编辑框_数量.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 6, 1, 编辑框_单价.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 7, 1, 编辑框_金额.内容)<br /> _启动窗口.高级表格.置数据 (_启动窗口.高级表格.取光标行号 (), 8, 1, 编辑框_备注.内容)<br /> <br /> .如果 (局部_修改 ＝ 真)<br />     信息框 (“修改成功，请继续。”, 0, )<br />     销毁 ()<br /> .否则<br />     信息框 (“修改失败。”, 0, )<br /> .如果结束<br /> <br /> 全局_修改id ＝ “”