主题：修改 按值期间引用

If e.DataCol.Name = "长度"
    For Each dr As DataRow In DataTables("表A").Select("长度>0","长度 DESC")
        If e.NewValue >= dr("长度")
            Dim dr1 As DataRow = DataTables("表A").Find("长度=" & dr("长度"))
            e.DataRow("单价") = dr1("单价")
            Exit For
        End If
    Next
End If

如何在中间 增加 长度等于0，单价等于0，

现在是长度等于0 单价就没有数字 tks