主题：求列计算

这样试试：（我没文件，没有测试）

Dim r As DataRow = e.DataRow
Dim s As String = e.DataRow("A")
if e.DataCol.Name = "A" Then
   if r.IsNull("A") = true Then
      r("B") = nothing
   else
      r("B") = Eval(s,r)
   end if
End If