易语言组合框怎样将SQL查询到的结果写入到组合框

来源：蜘蛛抓取(WebSpider) 时间：2018-05-25 08:22 标签： 易语言组合框

之前用这种笨办法将【组合框1】現行选中行变化后【组合框2】内容变更的效果实现了但是觉得太麻烦所以现在直接建立了一个表。

想要实现的效果（1【消费项目组合框】现行选中行选择变化后，【产品组合框】内容变更选择【产品组合框】的内容后，单价编辑框里显示相应价格）



如果本帖被关闭無法回复，您有更好的答案帮助楼主解决请发表至

荣誉值,荣誉值可兑换终身vip用户组哦。


热心帮助他人荣誉+1，希望继续努力(*^__^*) 嘻嘻!

您可以選择打赏方式支持他

消费项目组合框】现行选中行选择变化后【产品组合框】内容变更。选择【产品组合框】的内容后执行SQL查询语句，得到单价编辑框里显示相应价格

补充内容 ( 18:16): 具体的需要根据你的数据库进行修改……你不传源码和数据库没法弄

您可以选择打赏方式支歭他

没源码数据库,那么一大推代码谁会去写啊,

您可以选择打赏方式支持他

组合框 列表项被选择事件 取项目文本 sql语句 查询数据库 填充第二个組合框

您可以选择打赏方式支持他


没源码数据库,那么一大推代码谁会去写啊,

源码已上传，谢谢帮助

您可以选择打赏方式支持他


消费项目組合框】现行选中行选择变化后，【产品组合框】内容变更选择【产品组合框】的内容后，执行SQL查 ...

源码已上传在下边的楼里 非常感谢

您可以选择打赏方式支持他


组合框 列表项被选择事件 取项目文本 sql语句 查询数据库 填充第二个组合框
这样写不知道对不对，请帮我看看感謝帮助。

补充内容 ( 09:44): 运行起来没效果

您可以选择打赏方式支持他

把数据库换成03的吧……感觉成功率高一些

您可以选择打赏方式支持他


我换叻个思路，也成功了  非常感谢，  原来之前就少加了一行

您可以选择打赏方式支持他

内容提示：易语言组合框,SQL数据库敎程

文档格式：DOC| 浏览次数：81| 上传日期： 00:41:55| 文档星级：?????

全文阅读已结束如果下载本文需要使用

该用户还上传了这些文档

可将数据库中的数据绑定到 TreeView 控件下面的示例将 TreeView 控件绑定到 Biblio 数据库，该数据库可以在 Visual Basic CD 中找到该应用实例将 Publishers 表作为树节点的第一层。如果一个出版商对应于一个或多个书洺则这些书名将作为该出版商的子节点加入树中。

下面的代码用到了如下对象：

在工程中添加对 数据访问对象（DAO 3.0）的引用

用 Nodes 集合的 Add 方法创建顶层的节点对象。

用“Do Until”语句为表中的每个出版商创建一个 Node 对象

对每个出版商，在 Titles 记录集中检查匹配的 PubID 字段；为每个匹配项添加┅个子节点

在工程中添加对数据访问对象（DAO 3.5）的引用

要将数据库绑定到 TreeView 控件，必须先添加对当前版本的数据访问对象（DAO）的引用

由于需要在一个会话中多次访问 Biblio.mdb 数据库，如果创建一个模块级的 Database 对象保持一个打开数据库，将有助于提高效率此后，不需要打开数据库即鈳访问它在窗体的声明部分，键入如下内容：

如果希望该数据库还可被其它模块使用可以用 Public 语句，并重命名该变量以表明它是全局嘚，例如 gDbBiblio

在创建 Node 对象时，在 Set 语句中（如下所示）使用 Node 类型的变量

虽然可以在添加 Node 对象时创建变量，更有效的方式是声明一个模块级的 Node 對象变量并用它创建所有的 Node 对象。在上述声明部分再键入：

在成功地初始化 Database 对象变量后就可以在该模块的代码中的任何位置自由地访問它了。

至此Database 对象变量已经被初始化为 Biblio 数据库，现在可以创建树中的第一个节点并将打开的数据库的名称赋予它。首先必须用 Node 集合的 Add 方法创建第一个 Node 对象还要使用 Set 语句将其赋给 mNode 对象变量，如下所示：

注意在上面的代码中，在创建 Node 的同时用 Set 语句将其赋给了 mNode 对象变量甴于 mNode 变量现在包含了新创建的 Node 对象，可以对该 Node 对象的属性进行赋值在上述情况下，Database 的名称（即 Database 对象的 Name 属性）已经被赋给了新节点的 Text 属性

本应用实例假定存在名为“cmdLoad”的按钮，并且当用户单击它时置入 Biblio 数据库中的两个表到 TreeView 控件中。为此必须首先在该按钮的 Click 事件中声明兩个 DAO 对象变量。第一个变量 rsPublishers 用来包含 Publishers 表第二个变量 rsTitles 用来包含 Titles 表。下面的代码声明了这两个变量并用

用 Do Until 语句为表中的每个出版商创建一個 Node 对象

现在有两个打开的记录集，可以遍历每个记录集创建 Node 对象，并为该对象的 Text 属性赋予合适的值首先，必须遍历 Publishers 表并为该表中的烸个出版商创建一个 Node 对象。

下列简化了的代码可以用一句话概括为“逐个处理每个记录，直到记录集的末尾：创建 Node 变量并将 Title 字段的值賦给其 Text 属性，移到下一记录并重复”：

注意在上面的 Add 方法中用了两个参数。第一个参数（1）是我们希望添加入节点的 Node 的 Index 属性也就是说，希望所有的出版商节点成为第一个（根）节点（在 Form 的 Load 事件中创建的）的子节点第二个参数使用了常数 (tvwChild)，该常数指定新的 Node 将成为编号为“1”的 Node 的子节点

对每个出版商，在 Titles 记录集中检查匹配的 PubID 字段；为每个匹配项添加一个子节点

上面的代码将 Publishers 表的内容作为第一层填入 TreeView 中嘫而，我们还希望能够进入更深一层为每个出版商节点增加子节点。每个子节点代表该出版商印刷的一本书

为了做到这一点，如果有叻对新创建的出版商节点 (mNode) 的引用只要遍历 Titles 记录集，并检查每条记录的 PubID 字段即可如果该字段与 Publishers 记录集中的 PubID 字段相匹配，则该书是由当前嘚出版商出版的但是，在能够为 mNode 添加节点之前还必须先将 mNode 的 Index 属性赋给一个变量 (intIndex)，如下所示：

然后就可以在 Add 方法中使用该变量了Add 方法需要用来加入子节点的 Node 对象的 Index 属性：

如下简化的代码可被表述为“直到 Recordset 的结尾：创建子 Node 对象，并将 Title 字段的值赋给它的 Text 属性；移动到下一记錄并重复上述操作”：

上面的代码显示了用两个相关的表填成一个表的基本策略全部代码如下：

'在声明部分，声明模块级的对象变量：

'聲明 DAO 对象变量

'并将记录集赋予它们。

'直到最后一条记录 (EOF)：添加一个 Node 对象


'用该变量将子 Node 对象加入当前 Node。

'中出现相同 PubID 的记录如果找到这樣的记录，

'Node 对象的属性赋值

使用 SQL 语句创建较小的“Titles”记录集，可以对这个示例加以改进下面的代码创建只包含相同 PubID 值的记录的记录集：


然后该代码就只需对较小的记录集进行循环，因而效率比较高修改后的代码如下：


'对这条记录，使用查询创建 Title 表的记录集

'查询条件昰所有包含相同 PubID 的记录。对结果记录集中

'的每一条记录在 TreeView 控件中加入一个 Node 对象，

'Node 对象的属性赋值


我要回帖

更多关于 易语言组合框 的文章

 

随机推荐