如在一个表中,有表名,代码,两个字段,代码字段专门用于保存每个表名的函数代码,如下
Select Case e.Path
Case "table.htm"
Dim wb As New WeUI
With wb.AddTable("","Table1")
.head.AddRow("部门","姓名","年龄","电话","地址") '表头
.body.AddRow("技术部","张三","36","110","中国北京") '数据
.body.AddRow("技术部","李四","38","110","中国上海")
.body.AddRow("技术部","王五","39","110","中国深圳")
.body.AddRow("生产部","赵六","39","110","中国深圳")
.body.AddRow("生产部","刘七","39","110","中国深圳")
End With
e.WriteString(wb.Build)
End Select
设置一个按钮动态编译代码,能否将这些代码编译保存为一个常用函数,这样不用每次打开项目时都要动态编译这些函数?
谢谢!
加好友 
发短信
Post By：2019/8/21 20:33:00 [显示全部帖子]
