主题：[求助]显示代码错误

Dim dr As DataRow = e.DataRow
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 fdr As DataRow

        fdr = DataTables("材料申购明细表").Find("[计划单编号] = '" & e.NewValue & "'")

        If fdr IsNot Nothing

            For Each nm As String In nms

                e.DataRow(nm) = fdr(nm)

            Next

        End If

    End If

End If

Select Case e.DataCol.Name

    Case "单价","调拨","采购"

        If e.DataRow("调整") = False Then

            dr("金额") = dr("单价") * (dr("调拨") + dr("采购"))

        End If

    Case "金额"

        e.DataRow("调整") = dr("金额") <> dr("单价") * (dr("调拨") + dr("采购"))

End Select