这样?
If e.DataCol.Name = "金额" Dim dr As DataRow = e.DataRow If dr("金额") <= 1000 dr("总经理审核") = "无需审核" End If If dr("金额") <= 500 dr("行政总监审核") = "无需审核" End IfEnd If