怎样在Grid上动态增加Combo1,同时显示字段原来内容，也有选择"男","女"
tb(id,name,sex)
001,张三,男
002,李四,女
003,王五,男
thisform.grid1.ColumnCount = -1
thisform.grid1.RecordSourceType = 1
thisform.grid1.RecordSource = "tb"

 WITH thisform.grid1.Columns[3]
    .AddObject('Combo1','ComboBox')
    .CurrentControl = 'Combo1'
    .Combo1.Visible = .t.
    .Sparse = .f.
    .Combo1.borderstyle = 0
    .Combo1.additem("男")
    .Combo1.additem("女")
 ENDWITH
上面出来的，表格是
001,张三,男
002,李四,男
003,王五,男
不是我要的
001,张三,男
002,李四,女
003,王五,男

执行后比较一下。

        thisform.grid1.ColumnCount = -1
        thisform.grid1.RecordSourceType = 1
        thisform.grid1.RecordSource = "tb"
        WITH thisform.grid1.Columns[3]
            .RemoveObject("Text1")            
            .AddObject('Combo1','ComboBox')
            .ControlSource = "tb.sex"
            .Sparse = .f.
            .Width = 40
            .Combo1.borderstyle = 0
            .Combo1.Style = 2
            .Combo1.RowSourceType = 1
            .Combo1.RowSource = "男,女"
            .Combo1.Visible = .t.
        ENDWITH

thisform.grid1.ColumnCount = -1
        thisform.grid1.RecordSourceType = 1
        thisform.grid1.RecordSource = "tb"
        WITH thisform.grid1.Columns[3]
            .RemoveObject("Text1")    &&同时还要删除他
            .AddObject('Combo1','ComboBox')
            .ControlSource = "tb.sex" &&不能这样.CurrentControl = 'Combo1'
            .Sparse = .f.
            .Width = 40
            .Combo1.borderstyle = 0
            .Combo1.Style = 2
            .Combo1.RowSourceType = 1
            .Combo1.RowSource = "男,女"
            .Combo1.Visible = .t.
        ENDWITH

动态增加的ComboBox的InteractiveChange事件,除了绑定,或者自己封装类,还有什么办法在这里修改?