下面的就不行:
步骤一:
自定义函数,名字如 [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）
加好友 
发短信
Post By：2013/4/26 10:19:00 [只看该作者]
