主题：新增加一个判断，查找出来结果=0，就 = nothing

在这段代码中，我新增一个判断，当dr查出来的结果 "= 0 "时,我想让“e.NewValue” 为空。

else

表格中为0的地方，就是在另一张中，没有数值，是空值，所以在这我查找出为的是0值。我想把0清除掉。不让他显示0值，不好看。下面这段代码和上面的是同样的原理。
If e.DataCol.Name = "姓名" Then
    Dim nms() As String = {"德","能","勤","教学常规","奖励加分"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr6 As DataRow
        dr6 = DataTables("德能勤常规奖励").Find("[姓名] = '" & e.NewValue & "'")
        If dr6 IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr6(nm)
            Next
        End If
    End If
End If

If e.DataCol.Name = "姓名" Then
    Dim nms() As String = {"教师ID","人员类别","岗位系数","提一个月"}
    If e.NewValue IsNot Nothing Then
        Dim dr0 As DataRow
        dr0 = DataTables("设置").Find("[姓名] = '" & e.NewValue & "'")
        If dr0 IsNot Nothing
            For Each nm As String In nms
                If nm = "提一个月"
                    If dr0(nm) = 0
                        e.DataRow(nm) =  Nothing
                    Else
                        e.DataRow(nm) = dr0(nm)
                    End If
                Else
                    e.DataRow(nm) = dr0(nm)
                End If
            Next
        End If
    End If
End If