[例76在表单上创建个组合框和个文本框要求如下 (1)组合框的列表包含SB表的编号字段值。 (2)能在组合框中为其列表键入新选项。 (3)若选取组合框列表中的项(也可以是刚添入的新选项),便能将它 送入文本框。 假定组合框和文本框已在表单上创建(图略),下面列出主要的属性和事件代码。 (1) Cobol属性设置 (默认值,表示组合框类型为下拉组合框) RowSource Type: 6 (表示控件值源类型为字段) Row Source:SB.编号(在数据环境中添加SB表后,就能在属性窗口选取字段) (2) Combo1的 KeyPress事件代码编写如下: LPARAMETERS nKeyCode, nShiftAltCtrl IF kEycOde=13 &&按回车键则条件表达式返回.T If This. ListIndex=0&组合框列表中无此键入值返回.T.,才允许添加数据 THIS. Row Type=0&控件值源类型设置为可用 AddItem方法程序添加数据 THIS. AddItem(THIS. Display value)&&键入值添入列表末尾 THIS. Value=THIS. Displayvalue&&使键入值立即成为列表中的选项 INSERT INTO \vfpex\sb (E =)VALUES (THIS. Displayvalue) && INSERT-SQL命令在SB表末尾添加一个记录,并将键入值存入该记录的编号字段 THIS Row SourceType=6 &&恢复控件值源类型为″字段′ ENDIF ENDIF (3) Combo1的 Interactive Change事件代码编写如下 THISFORM. Text1. Value=THIS Value[例7-6] 在表单上创建1个组合框和1个文本框,要求如下： (1) 组合框的列表包含SB表的编号字段值。 (2) 能在组合框中为其列表键入新选项。 (3) 若选取组合框列表中的项(也可以是刚添入的新选项),便能将它 送入文本框。 假定组合框和文本框已在表单上创建(图略),下面列出主要的属性和事件代码。 (1) Combo1属性设置 Style：0 (默认值,表示组合框类型为下拉组合框) RowSourceType: 6 (表示控件值源类型为字段) RowSource：SB.编号 (在数据环境中添加SB表后,就能在属性窗口选取字段) (2) Combo1的KeyPress事件代码编写如下： LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 && 按回车键则条件表达式返回.T. IF This.ListIndex=0 && 组合框列表中无此键入值返回.T.,才允许添加数据 THIS.RowSourceType=0 && 控件值源类型设置为可用AddItem方法程序添加数据 THIS.AddItem(THIS.DisplayValue) && 键入值添入列表末尾 THIS.Value=THIS.DisplayValue && 使键入值立即成为列表中的选项 INSERT INTO \vfpex\sb(编号) VALUES(THIS.DisplayValue) && INSERT-SQL命令在SB表末尾添加一个记录,并将键入值存入该记录的编号字段 THIS.RowSourceType=6 && 恢复控件值源类型为"字段" ENDIF ENDIF (3) Combo1的Interactive Change事件代码编写如下: THISFORM.Text1.Value=THIS.Value