主题：[讨论]

就是这样的啊：

If e.DataCol.Name = "省份" OrElse e.DataCol.name = "新结算重量" Then
    If e.DataRow("新结算重量") >= 30 Then
        Dim dr As DataRow=  DataTables("超重费").Find("省份 = '" & e.DataRow("省份") &  "'")
        If dr IsNot Nothing Then
            e.DataRow("超重费") = e.DataRow("新结算重量") * dr("超重价格")
        End If
    Else
        e.DataRow("超重费") = 0
    End If
End If

先系统学习一下，否则你你会比别人多花100倍的时间，做出来的东西质量也会很差。