现在省市县三级数据库shx(注：省市县的缩写)，做一个省市县三级级联的组合框，combo1省  combo2市  combo3县 ,  

combo1(省):rowsourcetype为6-字段,rowsource为 shx.省  
           valid事件代码:   select 市 from shx where 省=alltrim() into cursor shi
                            select shi              
                            go top
                            scan
                                (shi.市)
                            endscan
                           
现在有问题了：1.省份进行重新选择后，市级组合框(combo2）不随之发生改变！问题在于scan......endscan间。请教！！
              2.省级组合框(combo1,已做成下拉列表框)，如何通过鼠标滚动实现下拉？我想通过mousewheel事件，但代码如何编写？或有其他途径！
              谢谢！

建议改变思路,用TreeView 控件

根据不同级别行政区划代码的特点进行连接

用SQL命令查询生成临时表，进行两次查询就可以了

用rowsourcetype = 3， Style = 2

表单的Init事件：
         = "SELECT 省 DISTINCT FROM shx INTO CURSOR 省"
         = 1
         = "SELECT 市 DISTINCT FROM shx ";
                                  + "WHERE 省==ALLTRIM() INTO CURSOR 市"
         = 1
         = "SELECT 县 DISTINCT FROM shx ";
                                  + "WHERE 省==ALLTRIM() AND ";
                                  + "市==ALLTRIM() INTO CURSOR 县"
         = 1

Combo1的InteractiveChange事件：
        
         = 1
        
         = 1

Combo2的InteractiveChange事件：
        
         = 1

VFP9测试，下拉列表框获得焦点后，下拉列表展开，在顶文本框滚动鼠标轮时会滚动选择列表的。

感谢5楼！给力！！！。麻烦再给解决一下鼠标滚动问题白！谢谢！再给你加分！

前段时间用过一套软件，在一个文本框内，双击鼠标出现各省份名称，在选定省份名称单击后出现市名，再选择市名单击出现县名，请问各位高手：如何在文本框内使用代码实现此效果？谢谢！

双击文本框控件，调用另一个表单，并返回选定值

空键可以操作下拉列表，模拟动作试试：
在 MouseWheel事件：鼠标滚动时下拉列表
IF EMPTY(this.Tag)
    NODEFAULT      && MouseWheel事件会滚动列表，第一次取消滚动。
    this.Tag = "1"
    this.SetFocus
    KEYBOARD "{SPACEBAR}" CLEAR
ENDIF

或在 MouseEnter事件，鼠标移入时下拉列表
IF EMPTY(this.Tag)
    this.Tag = "1"
    this.SetFocus
    KEYBOARD "{SPACEBAR}" CLEAR
ENDIF


在 MouseLeave 事件，收起下拉列表
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF !EMPTY(this.Tag)
    this.Tag = ""
    KEYBOARD "{SPACEBAR}" CLEAR
ENDIF

在 Click 事件：
this.Tag = ""

[ 本帖最后由 吹水佬 于 2015-5-24 15:05 编辑 ]