参考代码
Dim code = "dim e as object = args(0)" & vbcrlfcode &= "msgbox(e.datarow(""第一列""))" & vbcrlfcode &= "return e.DataRow(""第一列"") & ""abc""" msgbox(code)Functions.remove("test")Functions.complie()Functions.Add("test" ,code)Functions.Complie()
e.DataRow("第十列") = Functions.Execute("test", e)