加上条件
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