[分享]简单实用的动态列表项目 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

    老大在帖子“另一种动态列表项目”中共介绍了五种不同的列表项目的代码写法。我总结了一下，发现它们都有一个共同的缺点，即列表项目都是独立存在于一个项目表中，除非你是提交软件之前就将它尽量的完善，否则就需要录入员随时增加项目表中的内容后，再转到录入表中进行录入，有点麻烦。

    我在应用列表项目时采用的方法比较简单，实现了调用当前表或其它表的列表项目的功能，觉得挺实用的，代码也很简单（只有一句），并且新增加的项目当时就可使用，很方便的供大家分享。附截图：


图片点击可在新窗口打开查看

此主题相关图片如下：列表.jpg

1、若是在当前表（表B）中应用列表项目时，表B的PrepareEdit 属性中加入以下代码即可使用了，新出现的列表项目中没有的项目，可以手工输入“市”名称，以后再用就可应用。

CurrentTable.Cols("市").ComboList = dataTables("表B").GetComboListString("市","[省]='" & CurrentTable.Current("省") & "'")

2、若是在其它表（如表A）中调用表B中已存在的列表，同样的也是将如上代码加入到表A的PrepareEdit 属性中，即可使用了。

以下是引用t_fs在2009-3-20 11:14:00的发言：
.................................................

我在应用列表项目时采用的方法比较简单，实现了调用当前表或其它表的列表项目的功能，觉得挺实用的，代码也很简单（只有一句），并且新增加的项目当时就可使用，很方便的供大家分享。....................
...................................................

你这个不错，特别是新增加的项目当时就可使用，想要的，谢谢分享～
另外：可以在窗口控件中应用吗？

[此贴子已经被作者于2009-3-20 11:29:04编辑过]

这种效果和把列表项目属性设为本列有啥区别啊

以下是引用yuansq在2009-3-20 11:43:00的发言：
这种效果和把列表项目属性设为本列有啥区别啊

我...........sorry !

此主题相关图片如下：好像会重复.gif

[此贴子已经被作者于2009-3-20 12:07:32编辑过]

以下是引用yuansq在2009-3-20 11:43:00的发言：
这种效果和把列表项目属性设为本列有啥区别啊

有区别的。那个好象是不能去掉重复项目。

    窗口控件中应用（借用别人的成果）：

    以下代码为ComboBox2（市）筛选ComboBox1（省）的列表项目：

    在表属性的SelectedIndexChanged中设置：

e.Form.Controls("ComboBox2").Combolist=DataTables("A表").getcomboliststring("市","[省]='" & e.Form.Controls("ComboBox1").value & "'" )

以下是引用t_fs在2009-3-20 12:11:00的发言：

    窗口控件中应用（借用别人的成果）：

    以下代码为ComboBox2（市）筛选ComboBox1（省）的列表项目：

    在表属性的SelectedIndexChanged中设置：

e.Form.Controls("ComboBox2").Combolist=DataTables("A表").getcomboliststring("市","[省]='" & e.Form.Controls("ComboBox1").value & "'" )

谢谢～

主题：[分享]简单实用的动态列表项目