呃。
For Each br As DataRow In b For Each r As DataRow In tarb.DataRows r(br("列名")) = Eval(br("表达式")) NextNext
http://www.foxtable.com/help/topics/1277.htm