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

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