VFP9 combox 的BUG，CCB2000在VFP10中已修复。谁有简单的绕过这个BUG的方法？

PROCEDURE prdCombobox_Inpt_Atcyen
    PARAMETERS m.cWdgtLtr,m.nCyen,m.lLine

    .ColumnCount=5
    .ColumnLines=0
    .ColumnWidths=[60,80,60,60,30]
    .DisabledItemForeColor=255
    .AddListItem('\]'+fncTran([English desc]))
    .AddListItem('\]'+fncTran([Chinese desc]),.NewItemID,2)
    .AddListItem('\]'+fncTran([Currency sort]),.NewItemID,3)
    .AddListItem('\]'+fncTran([Currency no.]),.NewItemID,4)
    .AddListItem('\]'+fncTran([No.]),.NewItemID,5)
    .AddListItem([\-])
    .AddListItem(SPACE(0))
    IF    SqlExec(_Screen.RmtHdl,[select cAtcy_no,cAtcy_en,cAtcy_cn,cSort_cy from x_Atcy order by cAtcy_en],[x_Tdx])=1
        DO prdES WITH [Pub_setCodeword],ALIAS()
        SCAN FOR fncTran([This currency])$x_Tdx.cSort_cy=.T.
            DO prdCombobox_Inpt_Atcyen_Act WITH ALLTRIM(x_Tdx.cSort_cy)
        ENDSCAN
        IF    m.lLine=.T.
            .AddListItem([\-])
        ENDIF
        m.lLine=.F.
        SCAN FOR fncTran([Often])$x_Tdx.cSort_cy=.T. AND fncTran([This currency])$x_Tdx.cSort_cy=.F.
            DO prdCombobox_Inpt_Atcyen_Act WITH ALLTRIM(x_Tdx.cSort_cy)
        ENDSCAN
        IF    m.lLine=.T.
            .AddListItem([\-])
        ENDIF
        DELETE FOR fncTran([This currency])$x_Tdx.cSort_cy=.T. OR fncTran([Often])$x_Tdx.cSort_cy=.T.
        SELECT DISTINCT LEFT(x_Tdx.cAtcy_en,1) AS cLr FROM x_Tdx INTO CURSOR x_Tdy
        SCAN
            SELECT x_Tdx
            m.nLr=1
            SCAN FOR LEFT(x_Tdx.cAtcy_en,1)==x_Tdy.cLr
                DO prdCombobox_Inpt_Atcyen_Act WITH IIF(EMPTY(x_Tdx.cSort_cy)=.F.,ALLTRIM(x_Tdx.cSort_cy),LOWER(x_Tdy.cLr)+LTRIM(STR(m.nLr)))
                m.nLr=m.nLr+1
            ENDSCAN
            IF    RECNO([x_Tdy])!=RECCOUNT([x_Tdy])
                .AddListItem([\-])
            ENDIF
        ENDSCAN
        USE IN x_Tdx
    ENDIF
    .AddListItem(SPACE(0))
    .AddListItem([\-])
    .AddListItem('\]'+.List[1,1])
    .AddListItem('\]'+.List[1,2],.NewItemID,2)
    .AddListItem('\]'+.List[1,3],.NewItemID,3)
    .AddListItem('\]'+.List[1,4],.NewItemID,4)
    .AddListItem('\]'+.List[1,5],.NewItemID,5)
    .DefaultValue=.List[3]
ENDPROC

kangss 老师厉害了， ccb2000 竟然现身了  

> 初步确定 vfp9.exe(5815) 的修改位置是 0x4c7421（0x4c7420+1），只是不知这个 e9 6f 00 的 6f 是否适用于 5815 （简单测试了一下好像没问题）
> vfp9r.dll(5815) 修改位置是 0x3bdecf（0x3bdece+1）
修改位置，修改代码e9 6f 00 00 00正确。
vfp9t.dll(5815) 修改位置是 0x2F2E03+1，修改代码e9 6f 00 00 00。

嘿，咱哥俩好像用的同一版本5815。谁来当小白鼠？要不要先猜个拳？——我出包，你出锤子？若是管用，吱一声？

不用了吧，陈先生已在56楼确认5815的位置正确，修复后的执行状况应该与vfpa的相同，而vfpa已经国内外用户检验过，现在应用当不算小白鼠了
简单测试了几次，管用。
还有点点遗憾，我们的安装程序使用的运行库是 msm，想要咱自己修复它有点困难，有空得找找 msm 是否能解包更新

CCB2000 老师，CA更新时 ?字段名  也存在BUG，我映像中这个好像你也修复了，不知道VFP9-7423 版本 中能否也帮忙修复一下。
因为VFP9用的最多的就是 CA对象了，所以这个BUG太糟糕了

多谢，下载了一个，安装后能打开 msm，在 files 段能看到 runtime dll，就是没找到替换的方法

感谢前辈的付出！给foxer们造福了

幼儿园大班学历的我表示没怎么看懂

谢谢老师