易语言如何取DIV框架中的数据?

易语言如何取DIV框架中的数据?

易语言如何取DIV框架中的数据?
　　据库连接1.连接Access (“data.mdb”, “”)

　　.版本 2
　　.支持库 iext
　　.支持库 eDB

　　.子程序 刷新结果列表

　　超级列表框1.全部删除 ()
　　记录集1.到首记录 ()
　　.判断循环首 (记录集1.尾记录后 ＝ 假)
　　超级列表框1.插入表项 (, , , , , )
　　记录集1.读文本 (“编号”, 编号) ' 编号是整数型的，这里用文本接收也正常
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 编号)
　　记录集1.读文本 (“商品名称”, 商品名称)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 商品名称)
　　记录集1.读文本 (“商品规格”, 商品规格)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 商品规格)
　　记录集1.读文本 (“商品数量”, 商品数量)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 商品数量)
　　记录集1.读文本 (“单位”, 单位)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, 单位)
　　记录集1.读文本 (“进货价格”, 进货价格)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 5, 进货价格)
　　记录集1.读文本 (“同行价格”, 同行价格)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 6, 同行价格)
　　记录集1.读文本 (“销售价格”, 销售价格)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 7, 销售价格)
　　记录集1.读文本 (“市场价格”, 市场价格)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 8, 市场价格)
　　记录集1.读日期时间 (“入库时间”, 入库时间)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 9, 到文本 (入库时间))
　　记录集1.读文本 (“商品介绍”, 商品介绍)
　　超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 10, 商品介绍)
　　记录集1.到下一条 ()
　　.判断循环尾 ()
　　记录集1.关闭 ()

　　下面是查找的

　　.版本 2
　　.支持库 eDB

　　.子程序 _查找编辑框1_内容被改变

　　.如果 (组合框1.内容 ＝ “商品规格”)
　　_启动窗口.记录集1.打开 (“SELECt * FROM 商品 WHERe 商品规格 like '%” ＋ 查找编辑框1.内容 ＋ “%'”, #SQL语句)
　　.否则
　　.如果 (组合框1.内容 ＝ “编号”)
　　_启动窗口.记录集1.打开 (“SELECt * FROM 商品 WHERe 编号 like '%” ＋ 查找编辑框1.内容 ＋ “%'”, #SQL语句)
　　.否则
　　_启动窗口.记录集1.打开 (“SELECt * FROM 商品 WHERe 商品名称 like '%” ＋ 查找编辑框1.内容 ＋ “%'”, #SQL语句)
　　.如果结束

　　.如果结束
　　刷新结果列表 ()

　　一年好运随春到 四季彩云滚滚来 万事如意

数据库连接1.连接access (“data.mdb”, “”) .版本 2 .支持库 iext .支持库 edb .子程序 刷新结果列表 超级列表框1.全部删除 () 记录集1.到首记录 () .判断循环首 (记录集1.尾记录后 ＝ 假) 超级列表框1.插入表项 (, , , , , ) 记录集1.读文本 (“编号”, 编号) ' 编号是整数型的，这里用文本接收也正常 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 编号) 记录集1.读文本 (“商品名称”, 商品名称) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 商品名称) 记录集1.读文本 (“商品规格”, 商品规格) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 商品规格) 记录集1.读文本 (“商品数量”, 商品数量) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 商品数量) 记录集1.读文本 (“单位”, 单位) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, 单位) 记录集1.读文本 (“进货价格”, 进货价格) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 5, 进货价格) 记录集1.读文本 (“同行价格”, 同行价格) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 6, 同行价格) 记录集1.读文本 (“销售价格”, 销售价格) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 7, 销售价格) 记录集1.读文本 (“市场价格”, 市场价格) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 8, 市场价格) 记录集1.读日期时间 (“入库时间”, 入库时间) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 9, 到文本 (入库时间)) 记录集1.读文本 (“商品介绍”, 商品介绍) 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 10, 商品介绍) 记录集1.到下一条 () .判断循环尾 () 记录集1.关闭 () 下面是查找的 .版本 2 .支持库 edb .子程序 _查找编辑框1_内容被改变 .如果 (组合框1.内容 ＝ “商品规格”) _启动窗口.记录集1.打开 (“select * from 商品 where 商品规格 like '%” ＋ 查找编辑框1.内容 ＋ “%'”, #sql语句) .否则 .如果 (组合框1.内容 ＝ “编号”) _启动窗口.记录集1.打开 (“select * from 商品 where 编号 like '%” ＋ 查找编辑框1.内容 ＋ “%'”, #sql语句) .否则 _启动窗口.记录集1.打开 (“select * from 商品 where 商品名称 like '%” ＋ 查找编辑框1.内容 ＋ “%'”, #sql语句) .如果结束 .如果结束 刷新结果列表 ()