设有"列表框示例"表单如图1所示。表单上有一个命令按钮控件(Command1)、两个

问题：

设有"列表框示例"表单如图1所示。表单上有一个命令按钮控件(Command1)、两个标签控件和两个列表框控件(List1和List2),且两个列表框的数据源类型已分别设置为"结构"和"值"。单击命令按钮可以打开"打开"对话框以选择表文件,然后打开表文件、设置List1列表框的属性以显示表的结构(字段名),命令按钮的Click事件代码应为:CLOSE TABLE ALLcfile=GETFILE(’DBF’,’文件名’)IF !FILE(cfile) RETURNENDIFUSE &cfileTHISFORM.List1.（）=ALIAS()THISFORM.Refresh 对于List1列表框来说,双击其中的某列表项可以将其添加到List2列表框,且从List1列表框中移去该项,List1列表框的DblCiick事件代码为THISFORM.List2.（）(THISFORM.List1.Value) THISFORM.（）.RemoveItem(THIS.ListIndex)