主题：求改进方法！！

For Each ro As Row In tables("表A“）.Rows

   Dim dr As DataRow = DataTables("表B").Find("条件……")

   If dr IsNot Nothing Then

      Dim s As String = dr("公式")

      s = "Dim Sum1 As double = " & s.Replace("@", "Math.Ceiling").Replace("x", ro("末端重量")) & vbcrlf

      s = s & "Return Sum1"

      Functions.Add("Sum",s)

      Functions.Complie()

      ro("中转费") = Functions.Execute("Sum")

      Functions.Remove("Sum")

   End If

Next