目前，VisualFoxPro在数据库应用系统的开发中得到了广泛的应用，系统的开发技巧和注意事项受到人们的关注，本文叙及的两个编程技巧，实现非常简单，但在实际应用中起到了很好的作用。

　　1．跟变式组合框

　　在实际应用系统中，常常采用下拉列表框实现字符字段数据的规范化输入，并且往往一个数据表中会有多个这样的数据字段，而对应这些字段的规范化数据则作为枚举数据统一放在一个枚举数据表里进行管理。这就出现一个问题，对应不同字段的枚举数据有宽有窄，为了存下所有这些数据，枚举数据表的数据字段要足够的宽，但对于目标数据库的控制字段，显然要根据业务对数据的要求和节省空间的考虑，将字段设计成合适的宽度。对VFP来说，若列表数据宽度超出控制字段宽度，则文本框不能显示选定数据，这一点常常被编程者忽视，而造成提交给用户的程序不能正常运行。其实只要在设计下拉列表框时稍加几行代码就能解决这个问题，并且还能实现下拉列表框和文本框自动跟随控制字段的宽度发生变化，使对象宽度始终与字段宽度一致。

　　假设控制数据表KZB.DBF的控制字段名为A1，实际应用系统中，A1相当于不同数据表中的不同枚举字段。枚举表MJB.DBF将应用系统的所有枚举数据集中管理，枚举表最少包括两个字段：枚举数据和枚举字段标志，这里的枚举数据字段名为CC，枚举字段标志为MJBZ。图1为控制表字段A1宽度为10的情况，图2为控制表字段A1宽度调为26的情况。具体实现方法是：先在表单的数据环境中添加控制表和枚举表，在组合框的InitEvent方法中加入如下代码：

　　KD=LEN(KZB.A1)

　　THIS.WIDTH=31+6.3*KD

　　SELEMJB

　　CREATCURSORLS(CCC(KD))

　　APPEFROMMJBFORMJBZ="测试"

　　&&完成对应该字段的枚举数据筛选。

　　一般一个系统的枚举字段的枚举数据总计不过几百，在INIT中创建游标是不会影响速度的。在设计列表时，要在组合框的RowSource处标写游标名LS，这种功能的实现只需加写很少的代码，但却在实际应用中起到了很好的作用。