.支持库 eDB
.支持库 iext
.子程序 _删除此行_被选择
记录集1.移到 (超级列表框1.现行选中项)
.如果 (信息框 (“是否删除此条?”, 1 + 32, “询问”) = #确认钮)
记录集1.删除 (1)
.否则
返回 ()
.如果结束
记录集1.更新 ()
你们都没注意到记录集的一个命令的用法,所以才有这样的疑问。关键命令:记录集1.记录数量.版本 2
.支持库 eDB
记录集1.打开 (“select * from QXB where 名称 like '%” + 编辑框_名称.内容 + “%'”, 1, )
.如果真 (记录集1.记录数量 = 0)
信息框 (“经查询无相关数据”, 0, )
返回 ()'这样有数据的情况下就不会执行往下的命令了,也就不会清空数据了
.如果真结束
' ---------下面才是查询到数据的情况下执行的命令
' 执行代码
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)