求救超级列表框显示数据库的问题敬请指导

7291002 · 发表于 2011-9-13 16:50:05

我做了个简单的例子请大家帮我屡屡思路怎么才能把同一个部门的信息连续显示完了继续显示其他部门信息如图所示第一个图是我程序运行的效果第二个图是我想要的效果第三个图是我写的代码我用的是易数据库

金哥专用 · 发表于 2011-9-13 17:30:39

从来不用易数据库。只用SQL.

小生怕怕啊 · 发表于 2011-9-13 17:46:34

本帖最后由 qq578023708 于 2011-9-13 17:48 编辑

QQ截图20110913174537.jpg

新建文件夹.rar (74.31 KB, 下载次数: 29)

loilih · 发表于 2011-9-13 18:02:59

[e].版本 2
.支持库 iext

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕

.如果真 (打开 (取运行目录 () ＋ “\联系.edb”, , , , , , ) ＝假)
信息框 (“数据库连接失败！”, 0, )
结束 ()
.如果真结束
超级列表显示 ()

.子程序超级列表显示
.局部变量 i, 整数型

到首记录 ()
排序 (取运行目录 () ＋ “\联系1.edb”, “部门”, 真, , )
打开 (取运行目录 () ＋ “\联系1.edb”, , , , , , )
置当前库 (取运行目录 () ＋ “\联系1.edb”)
超级列表框1.全部删除 ()

.计次循环首 (取记录数 (), i)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i － 1, 0, 读 (1))
超级列表框1.置标题 (i － 1, 1, 到文本 (读 (2)))
跳过 ()
.计次循环尾 ()
[/e]

loilih · 发表于 2011-9-13 18:06:28

好了其实很简单！！！！！！！！！！！！

batmanpy · 发表于 2011-9-13 18:14:53

学习了，{:3_244:}

ldojh · 发表于 2011-9-13 21:02:31

真的好简单哦.....

7291002 · 发表于 2011-9-14 08:42:05

O(∩_∩)O谢谢各位高手

huanlong · 发表于 2011-12-27 21:43:51

看看是不是我想要的{:3_226:}

鼎诚 · 发表于 2012-1-3 14:52:41

只用SQL.{:3_244:}

		自动登录	找回密码
密码			注册

[易语言] 求救 超级列表框显示 数据库的问题 敬请指导

[易语言] 求救超级列表框显示数据库的问题敬请指导