没人知道么？？？？？

Question

function open(fr_name as form)
   dim fr as form
   fr=xxxxxx(fr_name.name)
   fr.show
end function

Answer 1

functon open(fr_name as form)
    fr_name.show
end function    

Answer 2

function open(fr_name as string)
   dim fr as form
   fr=xxxxxx(fr_name)
   fr.show
end functionfr_name 定义为form就失去了一切意义，大家用过PB么？假设我在数据库中存取必要的信息，(注意，库中是只能存字符串的，你不能
在oracle中存form对象吧),如窗体名，现在，程序中我要读库得到了窗体名，
如何根据这一信息打开名称为此的窗体呢？

Answer 3

先要加入集合。set colForms as new collectioncolForms.add form1,form1.name
colForms.add form2,form2.name
...调用时，才可以用字符串引用
dim frmToOpen as form
'假设strFormName是您想要打开窗体的名称
set frmToOpen=colForms.Item(strFormName)
frmToOpen.Show

Answer 4

combread(大点)，这样的实现方式和数组一样，我以前使用数组实现的，还
有更好的方法么！！！我想给你80吧。