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
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
但是rs("frmName").Show 好像不行,有其它办法吗?
你有必要把窗体用这种方式来调用显示么?你如果用到空件可以,窗体好像比较麻烦
你没有加栽窗体,你就不知道有没有这个窗体Fetch from DB:
ControlName,Property,Value
在VB理调用:
form.controls("ControlName").Property=Value