老大在帖子“另一种动态列表项目”中共介绍了五种不同的列表项目的代码写法。我总结了一下,发现它们都有一个共同的缺点,即列表项目都是独立存在于一个项目表中,除非你是提交软件之前就将它尽量的完善,否则就需要录入员随时增加项目表中的内容后,再转到录入表中进行录入,有点麻烦。
我在应用列表项目时采用的方法比较简单,实现了调用当前表或其它表的列表项目的功能,觉得挺实用的,代码也很简单(只有一句),并且新增加的项目当时就可使用,很方便的供大家分享。附截图:
此主题相关图片如下:列表.jpg
1、若是在当前表(表B)中应用列表项目时,表B的PrepareEdit 属性中加入以下代码即可使用了,新出现的列表项目中没有的项目,可以手工输入“市”名称,以后再用就可应用。
CurrentTable.Cols("市").ComboList = dataTables("表B").GetComboListString("市","[省]='" & CurrentTable.Current("省") & "'")
2、若是在其它表(如表A)中调用表B中已存在的列表,同样的也是将如上代码加入到表A的PrepareEdit 属性中,即可使用了。