- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [技巧]把代码保存到文本文件中执行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4430)
-- 发布时间：2009/9/22 10:19:00
-- [技巧]把代码保存到文本文件中执行
本人在实际应用中碰到了这样的问题：客户的报表可能半年或一年调整一次，并希望这些固定格式的报表能够一次性全部生成。这个需求用代码当然是可以轻松实现的。但问题是，如果他的报表格式调整了，难道就只能修改项目文件重新给他升级吗？
经过摸索，我发现可以把用户经常变化的功能需求代码写到文本文件里，然后在项目中执行。也就是说，对于定制报表之类的灵活需求，只要把代码写到文本文件里、然后给客户提交这个文本文件就行，而无需再修改项目！
例子在这里，有需求的朋友可以参考一下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.rar |
其实也很简单，事件核心代码只有5行（要先设置好file文件名）：
Dim Code as String = FileSys.ReadAllText(File,System.Text.Encoding.Default) ‘读文本文件
Functions.Add("Zdy",Code) \'添加到自定义函数
Functions.Complie() \'编译
Functions.Execute("Zdy") \'执行
Functions.Remove("Zdy") \'代码执行完毕即删除函数
[此贴子已经被作者于2009-9-22 12:01:29编辑过]
-- 发布时间：2009/9/22 10:39:00
--
呵呵,好主意
-- 发布时间：2009/9/22 11:07:00
--
真好啊
-- 发布时间：2009/9/22 11:34:00
--
先收藏再研究学习!谢谢楼主
-- 发布时间：2009/9/22 11:36:00
--
打开时，提示编译错误，public sub complic(0001001 as boolean),
继续打开后，点击按钮没反应
-- 发布时间：2009/9/22 11:48:00
--
以下是引用exonjee在2009-9-22 11:36:00的发言：
打开时，提示编译错误，public sub complic(0001001 as boolean),
继续打开后，点击按钮没反应
同此
-- 发布时间：2009/9/22 11:49:00
--
以下是引用exonjee在2009-9-22 11:36:00的发言：
打开时，提示编译错误，public sub complic(0001001 as boolean),
继续打开后，点击按钮没反应
可能foxtable的版本不一样 
事件代码已经贴在一楼了。
[此贴子已经被作者于2009-9-22 11:58:42编辑过]
-- 发布时间：2009/9/22 12:31:00
--
我也不行。
应该是老六的问题了。
老六，来看看Functions.Complie()为什么不行了？
-- 发布时间：2009/9/22 12:47:00
--
大家这样:
Functions.Complie(True)
-- 发布时间：2009/9/22 12:48:00
--
以下是引用狐狸爸爸在2009-9-22 12:47:00的发言：
大家这样:
Functions.Complie(True)
大家这样:
Functions.Complie(True)
nnd，你又变规则了