下面的就不行:
步骤一:
自定义函数,名字如 [DCBH]:
Dim drn As DataRow = args(0)
步骤二:
设DataColChanged事件:
Select Case e.DataCol.Name
Case "a" ,"b" '如果是A列的内容变动
Dim dr as Datarow = Functions.Execute("DCBH",e.DataRow) '
dr("C") = dr("a") +dr("b")
End Select
你这个当然不行,原函数没有设置返回值,DR无法被赋值。
函数中末尾要加入,return drs 或者 return args(0)