VB编译程序还没有支持这样的功能。只能自己解决:
public function String_Execute(byval strStatement as string) as boolean
String_Execute = true
select case strStatement
......
case "Form1.Show"
Form1.Show
......
case else
String_Execute = false
end select
end function

解决方案 »

  1.   

    可是这样写,好像和直接写在程序里没啥区别啊那换个问法把,我怎样可以动态显示Form,比如,我从数据库中拿出“Form1”,就Form1.Show
    但是rs("frmName").Show 好像不行,有其它办法吗?
      

  2.   

    只能按照: of123方法做,因为VB没有这个功能。
      

  3.   

    CallByName 的第一个参数必须是Object型,也就是要操作的对象名,可数据库里存储的是String型,能存储Object型吗?
      

  4.   

    Script Control Typelib可以执行VB脚本,可以添加对象我认为你的设计好像有问题
    你有必要把窗体用这种方式来调用显示么?你如果用到空件可以,窗体好像比较麻烦
    你没有加栽窗体,你就不知道有没有这个窗体Fetch from DB:
    ControlName,Property,Value
    在VB理调用:
    form.controls("ControlName").Property=Value