例7-4试用BM表的代码来修改B表的部门学段。PR8。。 要求SB表在列表框显示,BMDM表在组合框显示;并且当 列表框确定一个记录后,便可用组合框的选项来替代SB表 的部门字段值。 以用琳MM表的代码来修改SB表的部门□口区 (1)在表单上创建2个标签,1个列表框和1个组合框。 请指定要修改的记录 (2)在数据环境中添加SB表和BMDM。 6-1 016-2 注意,若存在关联联线则将它取消。 (3)属性设置:见表7.7。 00-1微机 (4) Cobol的 InteractiveChange事件代码编写如下: 请选供代入的部门号 THISFORM. LISTI Refresh &&在组合框列表中选项并替代SB.部门后更新列表框的显示 (5) Forml的Init事件代码编写如下 3三车间 THISFORM. Combol Enabled=F &&使初始时不能操作组合框,只可在列表框先确定记录 (6)List1的 Interactive Change事件代码编写如下: 图76选项替代 THISFORM. Combol Enabled=. T &&列表框操作后即允许组合框操作 (7) List的Init事件代码编写如下: SET ORDER TO TAG编号 &&使列表按设备编号次序显示(假定SB表中该索引标识已存在[例7-4] 试用BMDM表的代码来修改SB表的部门字段。 要求SB表在列表框显示, BMDM表在组合框显示；并且当 列表框确定一个记录后,便可用组合框的选项来替代SB表 的部门字段值。 (1) 在表单上创建2个标签,1个列表框和1个组合框。 (2) 在数据环境中添加SB表和BMDM。 注意，若存在关联联线则将它取消。 (3) 属性设置：见表7.7。 (4) Combo1的InteractiveChange 事件代码编写如下： THISFORM.LIST1.Refresh && 在组合框列表中选项并替代SB.部门后更新列表框的显示 (5) Form1的Init事件代码编写如下： THISFORM.Combo1.Enabled=.F. && 使初始时不能操作组合框,只可在列表框先确定记录 (6) List1的InteractiveChange 事件代码编写如下： THISFORM.Combo1.Enabled=.T. && 列表框操作后即允许组合框操作 (7) List1的Init事件代码编写如下： SET ORDER TO TAG 编号 && 使列表按设备编号次序显示(假定SB表中该索引标识已存在) 图7.6 选项替代