If e.DataCol.Name = "日均销量" OrElse e.DataCol.Name = "类别" Then Dim xl As String = e.DataRow("日均销量") If xl > 0 Then Dim dr As DataRow = DataTables("设置参数").Find("参数名称 = \'" & e.DataRow("类别") & "\' and 预警库存_日销大于 < " & xl & " and 预警库存_日销小于等于 >= " & xl) If dr IsNot Nothing Then e.DataRow("库存预警_预警天数") = dr("预警库存_预警库存天数") End If End If End If