这种代码编译为函数是根本不可能执行的！
函数里的代码都是独立的，和外部的调用程序完全是没有任何关系的。比如wb变量，函数里面即没有定义这个变量，也没有从外部传入这个变量，因此这个变量是根本不存在的。
函数需要改为这样
dim wb as WeUI = args(0)
With wb.AddInputGroup("form1","ipg1","筛选条件")
.AddInput("startdate","开始日期","date")
.AddInput("enddate","结束时间","date")
.AddInput("单位名称1","单位名称","text")
.AddInput("合同编号1","合同编号","text")
End With
With wb.AddCheckGroup("form1","偏好","分组统计")
' .Add("小区名称","小区名称")
.Add("单位名称","单位名称")
.Add("合同编号","合同编号")
End With
调用：
Dim s As String=decrypttext(lsdt.dataRows(0)("web"),key1,key2)
Functions.Add("test",s)
Functions.Complie
Functions.Execute("test",wb)
Functions.Remove("test")
加好友 
发短信
Post By：2020/10/20 14:09:00 [显示全部帖子]
