我也是刚接触 写个短短的代码吧 不过没用到数据源 下拉列表需要手动初始化

**************************************************
*-- 主函数
SET CLOCK on
SET TALK OFF
frmMain = CREATEOBJECT("C_Form")
frmMain.show
READ events
RETURN
*
*-- 程序结束
**************************************************


**************************************************
*-- 类:           C_Form (d:\vfp\td\12.vcx)
*-- 父类:  form
*-- 基类:    form
DEFINE CLASS C_Form as Form
    _screen.minbutton = .f.
    _screen.MaxButton = .f.
    caption = "组合框"
     width = 300
    height = 200
    autocenter = .T.
   

    ADD OBJECT com_box as ComboBox WITH ;
               height = 20, width = 50,;
               top = 80,  left = ThisForm.width/2 - 80
              

   PROCEDURE init
        WITH  = 0
        for i = 1 to 5
        a = 64 + i
        .list(i) = chr(a)
        endfor
        .inputmask = .displayvalue
        ENDWITH
   endproc
  

  

    PROCEDURE com_box.interactivechange
        if not Between(Asc(), 65, 69)
        MessageBox("上帝保佑"+)
        else

           MessageBox("菩萨保佑"+)     

        endif

    ENDPROC
   

    PROCEDURE destroy
        a = MESSAGEBOX("真的要退出吗", 1 + 32, "确认")
        IF a == 1
        CLEAR EVENTS
        ELSE
        RETURN
        ENDIF
    ENDPROC
*
*-- EndDefine: C_Form
************************************************** 

    _screen.minbutton = .f.
    _screen.MaxButton = .f.
你这两行干嘛的？不要这样用！

书上也有这个。。。
貌似是关掉最大最小按钮 有什么危险吗？

_SCREEN是VFP主窗口的对象实例，你关掉的是VFP窗口上的按钮，不是这个类代码定义的窗口的按钮。在类代码的定义中，不应该直接操作不是自己生成的对象，这是基本原则。

哦 这样啊
不过发现个奇怪的现象  _screen.minbutton = .f.
                      _screen.MaxButton = .f.
放在C_Form下能关掉 这个类的最大最小按钮 但是不能关掉主屏幕的
不过还是按你说的基本原则来吧 我直接写改成了
minbutton = .f.
MaxButton = .f.

**************************************************
*-- 类:           C_Form (d:\vfp\td\12.vcx)
*-- 父类:  form
*-- 基类:    form
DEFINE CLASS C_Form as Form
   minbutton = .f.
   MaxButton = .f.
    caption = "组合框"
     width = 300
    height = 200
    autocenter = .T.
  


    ADD OBJECT com_box as ComboBox WITH ;
               height = 20, width = 50,;
               top = 80,  left = ThisForm.width/2 - 80
..........

这样可以吗

可以。
写在那个位置，属于初始化赋值，不一定在运行阶段执行的，这种写法，应该是未知结果（类似于未定义行为），尽量避免。

我从自己的程序中取出部分代码，（不可能完善）仅供楼主参考：

收到的鲜花

• C469143 于 2012-09-18 08:13 送鲜花  3朵   附言：我很赞同

正是我想要的，谢谢

SELECT 市名
LOCATE FOR ALLTRIM(MC)==ALLTRIM(THIS.TEXT)
IF NOT FOUND()
   INSERT INTO 市名 VALUES (ALLTRIM(THIS.TEXT))
ENDIF
this.Parent.text1.Value=this.TEXT

28楼代码可修改如上

[ 本帖最后由 sdta 于 2012-9-18 09:17 编辑 ]