1.在类库MyVcx中建立一个工具栏类MyToolBar，将工具栏的ShowWindow属性设置为1——最上层表单； 2.给顶层表单添加一个自定义属性TopToolBar； 3.编辑顶层表单的Activate event,输入以下代码： This.TopToolBar=NewObject("MyToolBar","MyVcx") This.TopToolBar.show() This.TopToolBar.dock(0) 现在，你就可以享受顶层表单的工具栏了！

create cursor tt (a1 i,a2 i,a3 i,a4 i,a5 i,a6 i,a7 i,a8 i,a9 i,a10 i,a11 i) rand(-1) for lnI=1 to 11 append blank nzds=0 for lnJ=(lnI-1)*11+1 to lnI*11 nzds=nzds+1 replace (field(nzds)) with lnJ*rand() endfor endfor lcStru="" for lnI=1 to fcount() ...