关于数据库查询的一个很菜的问题,不过知之为知知,不知为不知,不耻下问,请高手指教下,感谢{:soso_e163:}
.版本 2
.支持库 iext
超级列表框_查询结果.全部删除 ()
打开 (取运行目录 () + “\价格表.edb”, , , , , , )
.判断循环首 (查找 (读 (“品名”) = 编辑框1.内容 ))
局部_计次 = 局部_计次 + 1
局部_当前行 = 超级列表框_查询结果.插入表项 (取记录数 (), 到文本 (局部_计次), , , , )
超级列表框_查询结果.置标题 (局部_当前行, 0, 读 (“品名”))
超级列表框_查询结果.置标题 (局部_当前行, 1, 读 (“产品编号”))
超级列表框_查询结果.置标题 (局部_当前行, 2, 到文本 (读 (“建议价格”)))
超级列表框_查询结果.置标题 (局部_当前行, 3, 读 (“添加量”))
超级列表框_查询结果.置标题 (局部_当前行, 4, 读 (“产品类型”))
超级列表框_查询结果.置标题 (局部_当前行, 5, 读 (“备注”))
跳过 ()
.判断循环尾 ()
我把查询到符合条件的字段读在超级列表框_查询结果中,如果找不到符合条件的字段,列表框是空的,不会有什么反应,我想加个信息框
信息框 (“没有找到【品名】:” + 到文本 (编辑框1.内容) + “的有关记录,请确认输入是否有误”, #确认钮 + #信息图标, )
在以上代码中如果表达出来,我以前用很笨的办法
.版本 2
.支持库 iext
超级列表框_查询结果.全部删除 ()
打开 (取运行目录 () + “\价格表.edb”, , , , , , )
.判断开始 (查找 (读 (“品名”) = 编辑框1.内容))
.判断循环首 (查找 (读 (“品名”) = 编辑框1.内容))
局部_计次 = 局部_计次 + 1
局部_当前行 = 超级列表框_查询结果.插入表项 (取记录数 (), 到文本 (局部_计次), , , , )
超级列表框_查询结果.置标题 (局部_当前行, 0, 读 (“品名”))
超级列表框_查询结果.置标题 (局部_当前行, 1, 读 (“产品编号”))
超级列表框_查询结果.置标题 (局部_当前行, 2, 到文本 (读 (“建议价格”)))
超级列表框_查询结果.置标题 (局部_当前行, 3, 读 (“添加量”))
超级列表框_查询结果.置标题 (局部_当前行, 4, 读 (“产品类型”))
超级列表框_查询结果.置标题 (局部_当前行, 5, 读 (“备注”))
跳过 ()
.判断循环尾 ()
.默认
信息框 (“没有找到【品名】:” + 编辑框1.内容 + “的有关记录,请确认输入是否有误”, #确认钮 + #信息图标, )
.判断结束
关闭 ()
感觉好象不太好,应该有更简单的写法,却不知道怎么写,呵呵,请高手们指教一下,谢谢
|