主题：请教：按钮如何引用执行存在数据库中的代码

动态编译，参考

http://www.foxtable.com/webhelp/scr/1487.htm

测试代码

Dim code = "msgbox(1)"
Functions.remove("test")
Functions.complie()
Functions.Add("test" ,code)
Functions.Complie()

Functions.Execute("test")